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800501 
#00740 
@00056 
@00206 
@oueti? 
00442 
#00445 
BOG4d2 1 
@C¢0506 
@vg42i 
BUOG33 


4006023 


@00503 
e0050co0 
@00603 
@gos24 
@00551 

eU0d4d44 
ecosrve 
eaus4?7 
eo0s5é5 
@vosé6s 
@Nb462 
@GuvEes4d 
@O60064 
e@oa6as 
e00405 
@ehodds 
ecagsas 
600556 
#00406 
@0go0541 

edesSsa 
@eo543 


6198 
0199 
0260 
0261 
C262 


0263 
0204 
0265 
0206 


O20? 
C208 
O203 
0210 


6211 
C2t2 


C213 
0214 
O25 
0216 
021° 
O215 


G219 
0220 
0221 
0222 
0223 
t224 


0225 
0226 
0227 
0223 
0229 
C230 
0251 
C232 
0233 
0234 
G235 
0236 


0237 
0233 
0239 
g240 
G24) 

G242 
C243 
244 
v245 


RCL 02 
1 


R=? 
GTO U6 


RCT 
1 


—_ 


XEO 06 


RCL OS 
1 
+ 
GTO GI 


LBL @3 
KEG US 


LBL Ot 
KCL G2 
2 

LEL 0} 


_ 


SE i 


ty 


ADVH 
RCL G2 
RCL OS 


ENT* 

CHS 

xe 

RCL O64 
SIGN 
X=0? 
RDWN 
RDOWN 

STO te 
FIX o4 


RTN 
LEBEL 04 
RCL 06 
’ 

PND 
L&L as 
ABS 
INT 
ARU? 


ri16 B6f CON wo0é6é61 téd5 GTO td 


Liv 202 CGN “oozb2 

r2a 565 con @G056S 0247 RDWN 
721 425 «ON @00425 24a 5 

722 401 COH @00404 (249 LBL 00 
723 526 cow @00826 0250 Lag 
724 5350 CON @€tosSS6 0251 INT 
72s $45 CON 200445 0252 RCL O05 
726 =00 CON eo00500 02535 + 

Yer 423 CON @00d23 — C254 3 

730 =00 CON 200500 C255 + 

731i 427 CON 600427 C256 7 

‘se 502 ‘GN @00502 C257 

733 665 COW @G0605 6253 RTH 
34 $07 CON @00407 $259 LBL 06 
$39 Ee 03 CaN @o0603 tt260 ENT” 
736 603 ON Gtcéos t2e6et ENT” 
3? . 427 CON @00427 0262 7 

749 S32 COH #00513 6263 MOD 

v4 $22 CON GO06422 C264 2 

742 ©03 CON #00503 0265 7 

743 550 CGN 00550 C266 INT 
744 &47 CON G0064? 0267? KROM 23523 
745 127 COW B0ai2e7 

746 301 CORK @udgse 0269 - 

747 — 61 CON. @600761 0269 G- 

r5So . so CON 6@00GSS 

751 410 CON Gugdia 0270 LBL UG? 
(ue 427” COOH GO00427 O271 7 

753 265 CGH @go0s5as 0272 KS? 
754 261 CON wuc6ssel w2735 GTO UU 
7355 205 -COKn @td0265 

756 =01 COW @00501 Q274 ~- 

for 647 CON @00647 0275 KROM 2301 
760 i0% CON GO0101 

761 670 CON #00670 0276 GTO U? 
762 12 CON wthogi2 

763 401 CON 200403 G27? LBL 00 
764 565 Can eo0565 0275S RDWN 
765 é47 CON @00647 0279 KROM 2923 
766 127 CON @oo0t27 

767 411 CON @nadsit 0280 LBL as 
ve 421 CON 60042) 0231 1 

771 22 cON  e@v0U0022 2 

rre 27 CON 00027 v 

r?s &47 TON eogedr W262 xXRON L303 
ce 1a3 COW 2690103 

fargo 554 ton @00S564 0233 R“ 

ree 605 Coy @o060S5 Qes4 RTH 
ire 412 COW @agdi2 C235 LEBEL og 
1600 r7i COW eoorri Oece-@ <uNITS= 
1601 tr? CON eo0oITr7 

it0z 40 COH SoO0G4+0 

1603 yr4 COW @tourd 

1an4 125 COM G@ucwes 

1405 116 CON Sours 

1066 111 COW @oc1t4 

1G0¢ 124 CON eudtie4 
+Uta 122 COUN wBguy~es 


fort yo CON Sugcu7s 


Siv idi2 
Sii 1643 
Stz2z 1014 
Sis 1015 
Sid 1016 
S?#5 107 
Sie 1620 
St? 16021 
S18 1022 
519 1023 
S20 1024 
S21 1025 

ge 1026 
52°33 1027 
$24 1030 
525 1031 
S26 1632 
S27 10323 
S25 1034 
S29 1035 
Ssu 1036 
53i 1637 
S32 1046 
532 16041 
534 1042 
534 1043 
5S3e iand4 
S37 1845 


535 1046 | 
539 1047 — 


S40 16050 
os 1051 
S42 1052 
542 1053 
S44 1054 
S45 4055 
S4é 1056 
547 1057 
o4& 1060 
S4¢o 1061 
SS 1062 
SSi 1063 
552 1064 
5527 1065 
SS4 1066 
go> 167 
Soe 1079 
SS? 10771 
soe 1672 
S57 1073 
Sot 1074 
96! 1075 
S62 1676 
So? 10°77 
5S4 1169 
S65 1101 
See 1102 
S67 11903 
36% 1104 
569 1165 


= 06 
63 
$83 
S61 
341 
3 04 
361: 
26 
346 
£61 
213 
350 
422 
561 
565 
£62 
215 
301 
465 
426 
£63 
2t5 
901 
351 
343 
421 
266 
550 
361 
~ 01 
402 
763 
177 


105 
403 
424 
6&4? 
126 
o47 
+0} 
£34 


3635 
47 
0 1 


ale 


647 


105 
say 
422 
$65 
E34 
76S 
662 
206 
+0] 

421 

ad? 


OH 
CON 
COW 
CON 
CON 
CON 
CON 
COW 
COW 
COW 
CON 
CON 
CON 
CON 
CON 
COW 
CON 
CON 
POH 
CON 


CON 
CON 
CON 
COW 


CON. 


COW 
CON 
CON 
COH 
COW 
CON 
CON 
CON 
CON 
COW 
CON 
Ot 
CON 
CON 
CON 
CON 
CON 
COH 
CON 
OH 
LON 
COOH 
ON 
TORK 
ON 
LOW 
cctH 
CIN 
CON 
ON 
Cited 
OW 
CH 
COW 


200506 
@00673 
@vd0303 
@00561 
@60541 
@60504 
@00561 
600526 
@00546 
@O00G661 
@O6213 
@60550 


00422 — 


@06561 
@00505 
&@0066z2 
@O00215 
BO00501 
@G0465 
@00420 
G@0UG663 
@00215 
@00461 
@005351 
@00543 
200421 
@00566 
600550 
@00561 
@00501 
@gg4d¢v2 
BOO’63 
e001’? 
awooo4da 
@200105 
@60463 
00424 
BUd647 
@00126 
800647 
@O0T OF 
200634 
eecogde 
eeo565 
@Go5d? 
PU06S} 
@d0ei2 
@00647 
200105 
@00527 
Gudd22 
G00465 
@00634 
eoudte 
@ooses 
00662 
@00266 
#00401 
@U0424 
CudEd7 


C237 KES 


0288 GTO 10 


0289 KK>Y 
0290 ABS 
0291 KK? 
0292 A624 
O293 LOG 
0254 K*0? 
G295 GTO 00 


0296 INT 
0297 2 

G293 H<>Y 
02939 KY? 
03600 GTO Gt 


OZ01 - 
0302 STO O05 
0302 0 
03604 GTO G2 


0305 LBL 00 
0306 FRAC 
0307 X80? 
0308 1 

0309 LST 
0310 INT 
0311 X<>Y¥ 
0312 - 

0313 LBL Of 
0314-8 E 


G31S LEBEL Ue 
0316 4 
6317 KROM 2322 


0318 XRON 2501 
O319 FIX GG 
0320 RDUN 

0321 X=0? 

0322 GTa 00 


0S235 KRONM 2905 


OS24¢ 10° 


— 
QS25 2 


0326 STO OS 


om fm 
fal GJ OJ 
fis 


fej Gl Gd 


5S/u 
St 
S72 
573 
574 
S75 
576 
57? 
573 
579 
530 
931 
562 
5672 
584 
535 
53% 
* 


1106 
110? 
41106 
$1192 
1112 
T1413 
1114 
$115 
1116 
111? 
1120 
1121 
tt22 
1123 
1124 
$125 
1126 


647 
101 
605 
413 
420 
903 
(i 
710 
56 
1057 


COW 
CON 
CON 
CON 
COn 
CON 
CON 
CON 
COW 
CON 
CON 
CON 
COW 
CON 
CON 
CON 
CON 


@00105 
¢00634 
600265 
06402 
w00762 
@coaré 
600040 
G00647 
@001901 
200605 
@00413 
e00420 
00503 
C00000 
edorto 
600056 
@01057 


0333 FIK I OS 


0334 LBL 01 
0335 @> 


0336 KROM 2301 
O25" RTN 
C333 LBL 190 
0339 0 
0340 7 
NU LL 2% 2 4 i 2 to ee A 


0341 END 


HORROR RCROROIOICE CRCCRICCRCICICRORORCECHCCORCECICECHCEC ACC RCAC TEE RCH CECE 8AM HH 


#SKPCHR-SKIP 


SPACES RS SPECIFIED BY K-23 MAA, 


OROROROROR IOCROIORO ROR HE ORE HORII II HOR HCHO AERC HOE ICE ECAC HOR CAC CE ORC HE > ACR HG NAC HOARE Ae 


5 7t 
S924 
593 
594 
535 
596 
So¥ 
D9 
593 
5379 
664 
6G} 
662 
66% 
6042 
605 
605 
60 
667 
6GE 
66% 
619 


1t27 
1130 
1131 

{132 
1433 
1134 
1435 
1436 
1137 
1140 
1141 
114-42 
1143 
1144 
1145 
1146 
1147 
11590 
1151 

1352 
1153 


SKPCHR 


#22 
1G 
3 
20 
13 
23 
1 

0 
406 
460 
30 
1406 
253 
216 
1 

0 
460 
249 
156 
210 
313 


ENTRY 
CON 
CON 
CON 
CON. 
CGN 
LON 
B05U8 


A=C 
LOI 
COW 

? ACC 
SONC 
B=A 
GOSuB 


L.DI 
CON 
AB EX 
$S= 


GOTO 


SKPCHR 
@222 
@10 

3 

16 

11 

1% 
CONY3D 


x 
24 
x 
ERL 


TACHR 


@240 


t 


SKPCIO ¢ 12242 


GET KX CONV TO BIR 


SAYE BINARY « 
# OF CHARS To SKIP<e4” 


SAVE A IN B&B TENP. 
INITIALIZE, SEND MODE IF NECESSARS 


RESTORE A 


SORTA OROICRORCRUR ROOK CACIIHOR CIE CACHE ICCC ROAC HOR RA HR RCE ice es CA OO ee 


[oe Sat fe ie oii ate ois ft oie af aie ie Ne ote oe ci ade ode 


6 i «h 
615 
61 
617 
613 


1154 
$155 
1456 
1157 
1166 
1761 
1162 
1163 
it64 
1165 
1166 
1t67 
117d 


SKFCOL 


214 
iY 
3 
20 
13 
23 
1 

o 
406 


ENTRY 
CON 
COW 
CUH 
CON 
COH 
CON 
GOSUB 


A=C 
LOI 
CON 
7 ACC 
GOLNC 


SKIP COLUMNS 


SKPCOL 
@214 
1S 

3 

16 

1 

iS 
CONVZD 


x 
168 


¢ 


ER RDE 


BOHR HR AHA SS te: 


He Vl OT 


GET ARGUMENT FROM #REG 


#OF CoLS TOO LARGE 


626 1171 2 

627 1172 216 B=A 

625 1173 1 GOSUB IACOL 

625 1174 0 

629 1175 156 AB EX 

630 1176 210 $S= i 

631 1377 23 GOTO SKPC4 ¢€1201> 

632 | 
*SKPCOM= SKIP COLUMN, MICROCODE 
#*USES: ACK>,C,N NO STATUS, NO PT, 1 
MINPUTS: CCX = # COLUNNS TO SKIP ¢SKPCON> 
me ACK= # COLUNNS TO SKIP ¢SKPC4> 
1c PRINTER MODE ALREADY SET TO FROPER 
*INSQUT: HEX MODE 

639 

6-4 fi ENTRY SKPCOM 

64} ENTRY SKFC4 

6421200 SKPCOM 406 A=C x 

642 1201 SKPC4 460 LDBI 

644 1292 237 CON @237 

645 1203 674 RCR 11 

64% 1284 460 LDI 

647 1205 ? COH 7 

64 1206 19406 ? ACC 

649 1207 137 GOoc SKPCS ¢€12225 

658 4210 SKPC6 1072 C=C+1 MM 

651 1211 706 R=A-C Kk 

652 i212 1763 GQONC SKPC6 C1210) 

. 637 12138 74 RCR 3 

654 t2t4 1 LGSUB PBYTEC 

654 4215 0 

655 1216 674 RCR 14 

654 1217 S06 A=AtC XxX 

65? 1220 1506 7? ABU K 

652 4221 33S GONC SKPCZO £1226 > 

659 1222 SKPCS 460 LDI 

660 1223 2/70 CON @270 

66%: 1224 SKPCHO 1 GOSUB PBYA+C 

66! iz2s 6 

662 1226 SEPC20 214 ?S5=! 

66% {227 1640 RTN NC 

664 1230 143 GOTO MPECHK ¢ 12449 

66% EJECT 


SAVE A IN B TEMP 


INITIALIZE,SEND MODE IF WECESSARY 
RESTORE A 
REMEMBER EXIT TO XPECHK 


ADDITIONAL SUB LEVEL 
STATE 
# COLS TO "A" CBINARY 5 


CSKIP O THAR? - 1. 
CHAR CTR TO CCM? 


? COLUMNS/CHARACTER 
# COLUMNS < 
YES, GON‘’T SEND # CHAR 

ADD A CHARACTER 

SUBTRACT 7 COLUMNS ; 


7? 


CHAR CTR TO Cer? 
# BLANK CHARS TO PRINTER 


BRIHG BACK THE ? 
RESTORE # COLUMNS 
# CULUMNNS= Oo? 

YES, DON’T SEND IT 


SKIP 0 COLUMNS 


# BLANK COLUNNS TO PRINTER 


EXIT TO #PECHK ? 
NO, RETURN To CALLING PRGH 


SUID STORORURIOIOIOICIOCECIORORECIORCIIOROIOILIOR IO HOI CIOIOIICIOROICRORCEC HORROR ECE HE HCC HOE IC HOE CIC HO EEC CE 
Ae NOt atone ttt PRA -- PRINT ALPHA REG, NO DISPLAY — ¢ to tok sttttok Rk a k 
wt at eA A hs A eh he de AA OR RO RCC HAC AE ARORA Ce ORC a OA de et: 


66% ENTRY LPECHK 
676 ENTRY PRA 
671 1231 261 CON @201 A 
672 1232 22 CON @22 R 
673 1233 20 CON @20 P 
2% 674 1234 PRA 1 GOSUB IPRT 
674 1235 a 
* 
676 ENTRY PRA2O 
es 2 
‘aay 678 1236 PRAZO 1 GOSUB PAREG 
674 12357 0 
679 1246 1670 C=KEGH 14 RESTORE SS FOm AVIEW FATH 
6st 1241 1530 ST=C 
68! 1242 LFECHK 1 GOSUB EOLL 
68% 1243 6 
ge 682 1244 XPECHK 1 GOLONG PECHK 
662 1245 Z 


HORII ROR RCICIOR ORCI IIE ACHOHOIECHCECICCHOROR CIR ICA AIO ICICI IORHOR UCR ICICI ENO HCH A ORE 
SUR KOTOR KO IRR tone ok = = PRT P= FROMP TT oe 22 tee ete ote cke tke shed a ha I HC ROR EH dO 
SUA HOROI GIO BOFORIOIC CHOI IC HCC CR CHC COICO AC ORCCCAC CR GC HEC HCHCCACHCCHCC ACH ACCA HCH AIOE 


686 ENTRY PPROMP 
62AC 68? 1246 PPROMP 1 GOSUB CKEN 

 68F 1247 0 
682 1250 1740 RTN P+! - DON’T PRINT 
639 1253 410 S$8= 1 P+2 
6$0 1252 1 GOSUB FNDPTR 
658 1253 0 
691 1254 1740 RTN PRINTER NOT FOUND 
692 1255 1 GOSUB IAUNB 
692 1256 0 
692 12457 1740 RTN DON’T PRINT IN MANUAL MODE 
694 1266 1563 GOTO PRAZO (1236) P+2 - PRINT 


HUI IOI I IOROIOIIOIOIOIOIOR IOI IOICIDI ICI IC ROTI EK OR OK tok or tor Hi CE tO Fok i Okc Na HCE Hg HE HEE He te 
se tORIOR Retr ACR - ACCUMULATE ALPHA REGISTER + 20: ses tte tee tee tee te tet 
TOI A RRR IORI IOC HOI IOI IC IER EI iI CCI iC kimi tok IOI ROR fe OR it HR RE HEE EC HEC HAR HAC He 


695 ENTRY ACA 

652 1261 201 CG @201 A 

70G 1262 3 CON 3 c 

7O0t 1263 1 CON” { A ° 

702 1264 ata 1 GOSUB IACHR 62R4 

762 1265 0 : 

7S 1266 1 GGOSUB PAREG 

703 1267 0 

7&4 12706 1543 GOTO MPECHK €12443 
ET AR RC TRC BE RC FAG SRE 2G FRE RE SHC ACR AC ECS RE AE MR GC EC QE HE AE SEE AC 546 A HC AE RE A AE AE AC ORG AC 6 RE oe 
*~PAREG SENS ALPHA REC TO PRINTER GIF 


* 

*-USES: A,B¢é&S),C0,N, ACTIVE PT, S9 FOR ERRORS, 1 ADDITIGNAL SUB LE’ 
*-INPUTS: CHIP @ ENABLED, HEXMODE 

* OUTPUT: A.N=s# OF CHARACTERS IN ALPHA REGISTER, PT=0 < CAM BE CHANGED S, 
CHIP 0 ENABLED, HEX MODE 


aT 
Ee 


& *& # 


Pid . ENTRY FAREG 
715 1271 PAREG 116 CHG 


?V3e 
722 
V29 
77o 


sate 


740 


r4e 
742 
746 
745 
74t 
747 


1272 
1273 
1274 
1275 
1276 
1277 
1309 
1301 
1302 
1363 
1304 
1305 
1306 
1307 
1310 
1331 
1312 
1313 
1314 
1345 
1316 
1317 
1320 
1321 
1222 
1323 
1324 
1325 
1326 
1327 
1220 
1331 
1z32 


{233. 


1334 


PAR4G 


PARS&O 


PAR? DO 


1670 
1434 
1574 
1424 


1352 


1160 


1406 
1548 


1503 


PT= 0 

ic 8 

tc 2 

A=C 

PT= 43 
Lc 6 

CB EX § 

C=REGN 8 

RCR 6 

PT= 1 

RCR 12 
? PT= 1 


GONC PAR69 CSi1dD 
? C#0 WPT 

GONC PARVG C137) 
GOSUB CKANGL 


GOGSUB PBYTDU 


PT= 0 
A=A+} tt 
R=A-1 = 5 
GONC PAR#O ¢€1304>9 
A= s 
R=An~1 « 
Cc=A x 
DADD=C 
LOI 

CON 3 
? AKC OX 
RTN C 
C=DATA 


GOTO PARSO ¢€1304) 


CixX >= REG 8 ADDR 
CeSo= REG BYTE CTR CRE= 3 BYTES3 
A= 2 vGg00g0Gd000 GUS 


—C£S$)= REG BYTE COUNTER 


B.S = 6 
GET REG 8 a 
{ST ALPHA REG BYTE TO Cé 0-13 


NEXT BYTE TO C¢ 0-1) 
STILL LOOKING FOR 1ST CHAR? 

NO 

YES, CX0-1)= 1ST CHAR? 

NO : | 
CHECK IF THE CHAR IS A ANGEL SIGN 


SEND CHARACTER TO PRINTER 


COUNT THE CHARACTER 

DONE WITH REG YET? 

NO ; 

YES, ACS =E= REG BYTE CTR 


GET NEXT REG ADDR 
COPY ADDR To C 


MORE REG TO CHECK ? 
NO 


aa EJECT 


He MM He ee NB i RC SMe 2 i dc ERR I RO OOOH NR OE NOR CH HCH HC iC i CK 
SICROIIOROICIOI I OR IO IOI ICICOIOR IOC IOI IOI IOI TOR ROR I CRO HOR RAH a a at ke ako ate sted tee 


*PRSTK-PRINT STACK ROUTINE 


*PRINTS STACK 


IN T,2,7,% ORDER. 


Sat Bie ote sie ae ais ic 2 st hc aie ae ake Re i Re A ei 2 cc Re Se de it de fe ok fe ods OC Ne Ae os SH oe oe ots oe i nc So ee ot ic HR SO HN i od oP 


754 ENTRY PRSTK 
755 ENTRY PRSTKX 
756 1235 213 CON @213 
757 1336 24 CON @a4 
752 1337 23 CON @23 
7E9 1340 22 CON @22 
760 1341 20 CGH G20 
761 1342 PRSTK 1 GOSUB IPRT 
761 1343 0 | 
762 1244 660 C=STK GET RTN AODR OF NFRPU 
76% 1345 1172 C=C-1 M CHANGE IT To RTH TO NFRC 
7h4 1346 560 STK=C SET FOR NERC 
7ES 1347 PRSTKX 116 C=O 
765 1356 460 LDI C.M=0,0,k53 
767 1351 3 CON a3 
762 1352 1150 REGN=C 9 
769 1353 773 GOTO REGLOO ¢1452) 
ee ee ee ee ee eee a ee eee ee ea eee ee 
*PRREG-PRINT REGISTERS 
ay’ HE 2G Ae SIR ee A Rs ee he Hi Se RC A nt fC AE A SCA AR AC ECC CN A HK i 
775 ENTRY Ace 
774 1354 207 CON 62 
775 1355 S CON is. 
776 1356 22 CON @22 
777 1357 22 CON @22 
773 1260 20 CON @20 
779 1261 PRREG 1 GOSUB FNDEND FIND LAST REG 
779 1362 0 
780 1263 646 A=A-1 x 
781 1364 116 C=O 
782 1365 1160 DADD=C 
782 1266 1570 C=REGN 13 GET REG 0 
784 1267 272 AC EX mM 
7@5 1370 S43 GOTO REGL (1444) 


UIC IOROIIOIOIOIOI IOI IG IC HOIOI IG ICICI CIO CICIOIC CCCI ACR UC NCO AHO ACC HEH 
*PRSIGMN-PRINT THE STATISTICS REGSITERS. 
HORII OIRO III IOI OR IO OICIGOIICIOR CIO ICICI OR OK GORI CRC AECCICK HC RE dd HCE CK 


” 
ay 


7SEk 
791 
VS 
723 
7953 
794 
7es 
736 
79 
72s 
vos 
SH 
8oi 
802 
8oy 


1371 316 
1272 22 
1373 20 
1374 PRSIGM 1 
1375 0 
1376 246 
1377 116 
1400 11606 
1401 1576 
1402 234 
1403 ee 
1404 474 
1405 1076 
1406 246 
1407 STKCKK 463 


ENTRY PRSIGN 

OH @316 SIGMA 

r CH G22 rR 

COH G20 P 

GCOSUB SUMCHK STOP ADR IN C.X 

AC EX X STUP ADR IN AL 
C=9 ENABLE CHIP 6G 
DADH=C CSUNCHK LEAVES IT DISABLED? 
C=RKEGH 13 GET SIGMA ADE 

PT= 19 PUT IN A 

C= kiP T 

RCR 3 

C=ct+1 S$ SIGMA — SET 

AC EX kK START=C.M STUOP=C.X 
Goya STKCHK £1447) Do IT 


“ECE RRC ORR eR IIR RR RRC EOI CR ACR CRORE CRORE 


*PPREGH-PRINT REGISTERS AS SPECIFIED BY THE % REGISTER. 


“rRNA Sgr RRR SRC CR NRC 9G SAC SHE 2 te IRC OR 9S SE OR SARE OR RC AIRE RC SRC RAG ROOF HH A HRC SEES, ES EC RO AOR 


30? 
SOG 
Bb 
Biv 
8i1 
8t2 
813 
Bt + 
Bt 4 
815 
816 
81? 
813 
$49 
82h 
$26 
82} 
S22 
82°53 
BO4 
825 
325 
B26 
32? 
825 
B29 
83 t 
831 
837 
B33 
334 
S35 
SIE 
837 
33e 
Sse 
83% 
$3" 
B84 i 
S41 
842 
842 
842 
844 
84 
845 
S4<e 
847 
84¢ 
g4e 
Sse 
BSP 
851 
3852 


1410 
1411 

i4i2 
1413 
1414 
1415 
1416 
1417 
1420 
1421 

1422 
1423 
1424 
1425 
1426 
1427 
1430 
1431 

1432 
1433 


1434. 


1435 
1436 
1437 
1440 
1441 
1442 
1443 


1444 
1445 
1446 
144? 


"4450 


1453 
1452 


1453 


1454 
1455 
1456 
1457 
1460 
1461 


1962 
1463 
1464 
1465 
1466 
1467 
1470 
1471 
1472 
1473 
1474 


PRREGX 


Vida 
1 


REGL. 


STKCHK 


REGLOO 


REGLOP 


230 


$156 
1240 
3°90 
204 


1046 
1046 
1046 


246 
ti? 
Z72 
15770 
32 


» 06 


116 
234 
252 
1150 


o-oo =~ 


ENTRY 
COR 
COHN 
CON 
CGN 
CON 
CON 
GOSUB 


RCR 
REGN=C 
SETDEC 
C=REGN 
S35 
GOSUB 


C=C+1 
C=t+t 
C=C+1 
SETHE 
GOSUB 


AC EX 
C=REGN 
RC EX 
C=REGN 
R=A+C 
RCR 
A=A+C 
ENTRY 
C=0 
PT= 

AC EX 
REGN=C 
GOSUB 


SOSUB 


ENTRY 
ZOS5UB 


C=REGN 


RCR 
GOSUB 


PRREGX 
@236 
G7 

@S 

G22 
@22 
@20 
CUNY3D 


CONVSC 


x 
9 
M 
13 

M 

3 

4 
REGL 
S 
WPT 


9 
IPRT 


EOLL 
REGLOP 
UNL 

9 


3 
CHKADR 


LISTEN 


STORE START ADDRESS 


GET xX 
SET FRACTICH FLAG 
GET FRACTIGN OF # 


MULT BY 1000 

CONVERT FRAC TO BIN 
PUT STOP NUMBER IN A 
START NUM IN C 

START ADR IN PLO 

GET REG 0 


GEN AOR 
MNOVE REG 0 


CLEAR HGIH END 
ENTRY FOR PRREG 


LINE FEED 


SEND UNLISTEN 


GET ADDRESS 

ADR IN C.X 
ERRNE IF KEG NONEXISTAHT 
CixX>= REG ADDR, B= REG CONTENTS 
GET VALUE BACK 

SAVE FOR LATER 

ADDRESS PRINTER AS A LISTENER 


GET N 


wer Rn gto 


1 = nth gata Na ag OR oe ERE eM Tab 


1475 
1476 
t47?¢ 
1560 
1561 
1562 
15903 
1504 
1595 
1506 
150? 
1510 
1311 
15t2 
1513 
1514 
15S 
1516 
151? 
1520 
1521 
TS22 
1523 
1524 
1525 
1526 
152? 
1530 
1531 


{ASS 
1533 
1534 
1235 
1536 
1537 
1540 
1541 
1542 
1243 
1544 
1245 
1546 
154? 
1350 
125 

TaS2 
1553 
{254 
F255 
1556 
1557 
1366 
1561 


1562 


1363 
S64 
1565 
T3566 
1567 


MORALP 


STK 


106 
{ite 
647 
1536 
ad 


176 
130 


1040 
176 
130 
136 

{062 
176 
134 


1640 
17€ 
131 


1062 
176 
130 
131 
1040 
146 
143 


106 
474 
732 
660 

1032 

1632 

1032 

1632 

1460 


—~ Pa nmbuw oO 
PO Oy fe — Gy my 


“s! 


+ 
~tlo-how~-NoGti nAMa sao 


= 
i: 7 
ac 


124 
132 
13 


Cred 
COW 
CON 
CON 
COW 
CON 
COW 
OH 
CON 
COW 
CON 
CON 
CCH 
COHN. 
CON 
CON 
CCH 
ENTRY 
C= 
RCR 
R=A-C 
C=STK 
C=C+A 
C=C+A 
C=C+A 
C=C+A 
CxISA 
GOSUB 


GOSUB 


C=C+1 
?C#G 
GONC 
GOT 
LOI 

C Cty 
SOoOsSuUuG 


RCR 
8OS5UB 


TO 
SUB 
Can 


ON 
DCN 


WPT 
STK 

S 

REG 
SIGSTF 


G176 
@130 
G40 
@1040 
@17é 
#130 
2136 
@1a62 
@176 
@131 
@40 
@1646 
176 
@13I 
#136 
@1062 
@176 
@130 
@t3i 
@1040 
@116 
@1t243 
SIGSTF 


aaa zox 


CKANGL 
PBYTECT 


M 

x5 
MORALP 
MSG 


G122 
PEYTEC 


3 
PERINGO 


MSG 
STKADBR 


B24 
@13e 
@33t 


C1563) 


C1553 5 


C1342) 
C1276) 


C1576) 


ADDRESS TO BYTE 

IF CARRY THEN STACK ADR 
IS THIS SIGNA REGISTERS? 
NG 

LOOK UP SIGMA RLFHA 


SiGMea 
% 


SIGHA 
4°32 


SIGMA 


SIGHA 
Y*2 


SIGMA 
wy 


Hf 
THREE BLANKS 


CALCULATE ADDR FOR TBLE 


ADD OFFSET 4 TIMES 


GET CHR 
CHECK IF TALKING TO T.¥. 


PUT ITF OUT 


INC COUNT 
LAST BYTE? 
NO 
LOAD R CUNSTANT 
R 


CUTFUT REG # 
REG # TO FRINTER 


TABLE CHARACTER LOOK UP 


“— fh) +4 


911 1570 120 CON @130 x 

912 

913 ENTRY STKADR 

914 1571 STKADR 660 C=STK GET T,2,17,% 

915 1572 1032 C=C+A 

916 1573 1460 CXISA 

917 1574 1 GQSUB PBYTEC 

917 1575 0 

919 1576 MSG 1 GOSUB PRTMSG "= " TO PRINTER 

913 1577 0 

919 1600 75 CON @75 = 

926 1603 440 CON @440 BLANK 

921 1602 { GOSUB PRTM PUT GUT REG CONTENT 

921 1603 6 

922 1604 1 GOSUB ECLL PRINT THE LINE 

922 1665 0 

$23 1606 1 GOSUB PWAIT 

92°53 1667 0 

926 1610 1176 C=RKEGN 9 DOME YET 

925 1611 1072 C=C+1 M 

92% 1612 1150 REGN=C 9 

927 1613 746 AC EX X 

925 1614 74 RCR 3 

929 1615 1406 2? ACC xX 

93% 1616 1 GOLNC REGLOP 

930 1617 2 

3931 1620 1 GOSUB PECHK CHECK PRINTER ERRORS 

931 1621 0 | 

S3% 1422 1116 $= 1 FOR CarRD READER 

932 16423 1740 RTWN 
* 
“i ORR Re HE he TR he 2G he RS a HN A hr rH Co SR i a ee A A A oH KE 
* PRNCP - THIS IS A DUMMY FUNCTION TO MAKE THE FUNCTION NUMBER * 
* INCREASE TO 33 
SE WR AR TAC TH Re Shc ake She Me Sle RC 86 a AG RC i RC He CACC 2 AC 4 oe oH 2 ae os oe et as Se oA OR i AC ae AC Se os a oe ed eC 
*" 

940 ENTRY PRNOP 

S44 1624 '255 CON @255 - 

942 1625 55 CON @s5 - 

942 1626 PRNOP 1740 RTN 
* 
*~- A~C= PEG A - REG C 
se | 
*-SETDES, SUBTRACT REGS A&C, GO TO "DATA ERROR” FOR OVERFLOW CR UNDERFLGM 
* CPOESN’T MESS WITH RAM) 
o* , 
*-USE3: A,8,C,M, PT, NO STS ?? 1 SUB LEYEL 
*-INPUTS: REG A&SL= FLOATING POINT, NORMALIZED NUMBERS 
*-DLTPUTS: C= A-C CFLOATING POINT), DEC MODE, PT= 12 -- OK 
* PT= 11 -- UNDERFLOW, PT= 10 -- OVERFLOW 
: 

355 ENTRY A-c 

954 1627 Aa-c 1240 SETDEC 

957 16230 1276 C=-C-1 $ 

95% {631 0 HOF 

957 16232 1 GOSUB AbdDz2-16 ADD "A" To "-c" 

959 1433 a 

962 1624 1 GOLONG OVFLIO CHECK FOR OVERSUNHDER FLO 

G62 1625 2 


iS A MS tA le on rine RI RL St Oe E RET ce EIR I 


* 


TH fe fe He Te Ac aie ake 2h Bic fe He 4 oe ORK SA eft tafe fe gt 


9se 
96? 
969 
9635 
969 
97 ¥ 
97% 
974 
972 
* 


16436 ENDALP 


1637 
16406 
1641 
1642 
1643 
1644 


330 
1 

G 
34 
B36 


beara ewe sea eee 
kok tO PREP -- EXITING FROM ALPHA MODE WITH ALPHA KEY | 4 test detente net ok net 
URC TOb Rib CCR EECC RCIA OIOIICIOI HIG HOI CE fk Hak dak HOE EEK ORE CERO ACC RCO eo: 


‘ENTRY 
i M=C 
| GOSUB 


(PTS 
C=M 


ENDALP 
. DATAPR 


3 


1 GOLONG PR14RT 


2 


FILLTO @1644 


PRT12 -- PRINT CATALOG 


TH he eFC fe Oi a RRR te he i fe te 2 fe fe ee ois oe he ite eS he Si ae ARC A HE REECE EC ORC HCH NERC HCHE HEE AE CRC OE EE 


977 ENTRY FRTICAT 

97% 1645 PRICAT 404 S5= 0 

975 1646 1 GOSUB TAUALL 

97% 1647 0 

9280 1650 1740 RTH 

981 1651 1670 C=REGN 8 

98: 1652 1176 CxC-1 § 

937 1653 1176 C=C-1 § 

564 1654 313 GONC DOLCD 
**FOR CAT 1, IF PGM PTR IS AT AN END, 
*THE PREYIGUS END AND THIS END, 

987 1655 1 GOSUB GETPC 

937 1656 0 

98: 1657 1 GOSUR INCAD 

935 1660 0 

983 1661 212 B=A WPT 

990 1862 1 GOSUB INCAD 

990 1663 0 

991 1664 1 GOSUB NXTBYT 

991 1685 07 

992 1666 1530 ST=C 

993 1667 1434 PT= ' 

994 1670 1042 C=C+1 PT 

995 1671 147 GOC DOLCD 

99% 1672 34 PT= 3 

99? 1673 252 AC EX UPT 

99% 1674 530 M=C 

995 1675 214 75521 

100% 1676 123 GONC PCAT2O 

1001 1677 1 GOSUB PR.END 

TOOt 17500 0 

1002 1701 1 GOSUB PRTMSG 

1002 1702 0 

100% 1703 647 CON @647 

100A 1704 63 GOTO PCAT25 

100% 41765 pDOLCD 1 GOSUB PRTLCD 

100" 1706 0 

4006 1707 263 GOTO OUTPCT 

100” 1710 PCATZO 1 GGSUB PRTLCD 

100F 1711 0 

(0096 1712 PCATZ5 34 PT= 3 

100% 1713 1S2 AB EX WPT 

1610 1714 1 GOSUB CP GNHD 


C4705 5 


SAVE REG C 
PRINT ALPHA ENTRY STRING 


Tes OMe OH Be he ae ae Si i of He 2 He 60 AE i A Ce Se oie fe aie od et 2h Se te oe oe He He a he Se a TAR OH A A SS SH Ha se SH od oe od dE 
2 HE Ne Re Be Sh ic of Oe SO i SE Oe eo 


EE ae oe A He 4 0S HC SH oe CE 


P+{ - DGN’T PRINT 
GET CATALOG # 


CATALOG 1 7 
NO 


PRINT THE HUMBER OF BYTES BETWEEN 


C1705 > 


C1710) 


Cift2) 


C1#35) 


INCLUDING 3 BYTES FOR THIS END, 


YES, ACO-3>= PGN POINTER 


INCREMENT ADDRESS= 157 BYTE 


SAVE COPY OF 1ST BYTE ADDRESS 
SKIP 2ND BYTE 


GET SRD BYTE 


SAVE 3RD BYTE IN STATUS 


ALFHA LBL? 

YES 

IT’S AN END 

C= SRO BYTE ADPRESS 
SAVE SRD BYTE ADDRESS 
FINAL END 

NO 

YES, PRINT ".END.” 
SKIP ? CHARACTERS 

A= Pr= 45T BYTE OF END 


R= ACDR QF TOF OF FROGRAM 





Pu few Bcudey rer &e ¢ 


10nd 1715 0 
O11 1716 £30 C=M 
1012 1717 352 BC EX WPT BS3RD BYTE ADDR OF END 
O13 1720 - 1 GOSUB CNTBYT COUNT # GF BYTES 
1013 1721 0 
10i4 1722 246 AC EX X C.X= TOTLA # OF BYTES 
1015 1723 1 GOSUB PBINBO PRINT # BYTES 
1015 1724 0 | 
1016 1725 1 GOSUB PRTMSG 
1016 +726 0 
bot? 1727 40 CON @40 BLANK 
1018 1730 162 CGN @102 B 
$0493 1731 131 COGN @13t Y 
1026 1732 124 CON @124 T 
1021 1733 105 CON @105 E 
1022 1734 S23 CON 523 S 
uz Ss FILLTO GI1Vv34 
o* 
* THIS ENTRY IS USED BY TIMER ROM TOO,’ IT REQUIRED 
* USED ONLY A,C,N,S0~-57,S9 AND +2 SUB LEVEL 
* GADD 
10256 1 GOSUB EOLL (47° SEND EOLL 
1025 G 
21029 1737 62DF 1 GOSUB BECHK/Z£ 20) WAIT FOR PRINTER 
1029 1740 G Entry Point fvom TIMER 
gp ost 1744 {1 GOLGNG PECHK (6523) ee a CLE 
1oz0 1742 2 
1o3t 
SOIGICRCIOIOIOICICICRCROI OA HOE IOI OR ICICICI ICICI CRGICICE HE HOI IOICHO EC HOICRCHCHE CHE HCACICA ACA HCC ACO ACOH RAE HE 
< 
* BECHK “BUFFER EMPTY CHECK? - WAIT UNTIL PRINTER IS IDLE OR PRINTER 
« SUFFER IS EMPTY. NOTE THAT WHEN THE PRINTER RUNS OUT OF PAFER, IT 
* MPY G0 IDLE WHILE THERE I5 STILL DATA IN ITS BUFFER. 
* 
* USES C,NO PT, $7-$0,89 CERRORS). LEAVES ORIGINAL $7-50 IN CL1:6). 
* USES ONE ADDITIONAL SUBROUTINE LEVEL. 
* 
x INPUT: NOKE 
* OUTPUT: 1ST BYTE OF PRINTER STATUS IS IN S7-S0. 2NO BYTE OF PRINTER 
4 STATUS 18 IN CLIZ: tel, 
* ASSUMES: $9 IS PRINTER INTERFACE ERROR FLAG. 
* 
104 ENTRY &ECHK 
E 21047 1743 BECHK 1 GOSUB FNSTS 
1047 1744 0 
10¢6 1745 BECK20 14 753=1 OPS? 
1049 1746 23 GONC BECK30 (1750) NU 
1050 1747 1116 S9= 1 SET ERROR FLAG 
1057 1750 BECKSO 1114 759=1 | ANY ERROR? 
1052 1751 1540 RTN C 
1053 1752 F776 C=C4+C § 
i054 1753 776 C=C+#C § IDLE? 
1055 175 1540 RTN C 
1056 1755 776 C=C+C S$ BUFFER EMPTY? 
1057 1756 iS4n RTN C 
1052 1757 1730 CST EX RESTORE ORIGINAL STATUS 
1052 1760 1 GOSUB FNSTS 
1oS9 1761 u 
106% 1762 1633 GOTO BECK20 ¢(17453 


JORISISICOICICIGICCR IOI ICIGO ICICI IDI CI CE OR IE Ck da EHC CACC ICE Hea: ara HEHEHE HEE AE RAE AEE oo 


RRERRRE XE EX 


* 


ee ee 


.~ 


een Sars, cup eggpaes ce 


INPUT; 
QUTPU 


ASSUMES: S39 IS PRINTER INTERFACE ERROR FLAG 


bO7z 
tors 
1074 
£074 
1075 
O76 
coe 
OF 
1 gy ier} 
rare 


NOKE 
T: NONE 


1763 PWAIT 
1764 
1765 
1766 PUAITX 
1767 
1770 
r?7i 
17F2 


1 
G 
1730 
f1i¢4 
1 
3 


ENTRY 
ENTRY 
GOSUB 


CST EX 
7S9=4 
GOLC 


JSES: C,ACKI,NO PT, S93 FOR ERRORS, 


PWAIT 
PWAITX 
BECHK 


PEDTIAG 


1 GOLONG FCHKKB 


z 


PWAIT SPRINTER WAIT) - WAIT FOR BUFFER EMPTY OR IDLE, THEN CHECK 
FOR FRINTER ERROR AND CHECK FOR KEYDOUIN 


Z ADDITIONAL SUBROUTINE LEVELS 


RESTORE ORIGINAL STATUS 
ANY ERROR SO FAR ? 
GOTO SEE WHAT'S WRONG IF ERROR. 


SMI RCRA ICI ACI ICRC ICI CR ICR AC HOICG IO IOI RCE IOI CIO IO ICCC ACH ACR IACH AHO AEE HCE 


*- 


1 ADDITIGNAL SUB LEVEL 


CLR&SS 
LOSSTO 


0 
STUOPSB 


*-CLRESS=s CLEAR RUNNING & SST FLAG 
x ALSO CLEARS PAUSING 
* . 
*-UISES: C, S6-S7, NO PT, 
*-IH: NOTHING 
*--OLT S30 UP, CHIP @ ENABLED, 
*-ASSUMES: WOTHING 
* 
1096 ENTRY 
1091 1773 CLR&ss 1 GOSUeB 
1091 1774 0 
1092 4775 104 Sd4= 
109% 1776 1 GOLGNG 
$092 1777 2 
1094 
* 
1096 UNL IST 
OAS END 


ERRORS : 0 


RUNNING, SSTFLAG,&PAUSING CLEARED 


LOAD STATUS SET a 


CLEAR SST FLAG 
CLEAR PAUSING& RUNNING, 


& STORE AWAY SSTO 


S7YmMeol. 


A-C 
aca 
RECHK 
BECK20 
BECKI0 
CLRESS 
DOLCD 
END&LP 
ERL 
LPECHK 
MORALP 
mSG 
QUTPCOT 
PAR4O 
PARSO 
FAR7 SD 
PRRKEG 
PCATZO 
PCAT2Z5 
FRPRUME 
FRA 
FRAZG 
PRAXIS 
PRACP 
PRPLOT 
FRPLTFP 
PRREG 
PRREGR 
FRSICM 
FRSTK 
 PRSTKX 
PRTCAT 
PWAIT 
FRAITA 
KEG 
REG}. 
REG! 00 
REGLOP 
SIGESTF 
SKPLIG 
SKPC2Z6 
SKPC4H 
SKFCSE 
SKFCS 
SKPCHE 
SKFCQI. 
SKFCCOM 
STK 
STeADR 
STKCHK 
STKCKX 
SaPECHS 


TRBLE 


1627 
1264 
17435 
1745 
1750 
1773 
1705 
163¢€ 
11798 
t24e 
1542 
15rb 
1730 
1304 
13it 
1317 
1271 
1719 
1712 
1246 
1234 
1236 

416 
1626 


244 
1361 
1416 
1374 
342 
1347 
1645 
1762 
1766 
$553 
1444 
1452 
1454 
1532 
1224 
1226 
1201 
t2t0 
1222 
1135 
1162 
1208 
1567 
1571 
1447 
1407 
f24e- 


1762 
1746 


1671 
1t43 


1551 
1562 
1707 
1334 
1306 
13190 


1676 
1764 


1501 
1370 
1353 


1153 
t221 
ti? ? 


t212 


1407 


ENTRY TABLE 


A-C 
RCA 
BECHK 
CLRESS 
ENDRLP 
LPECHK 
PARREG 
FPRONMFP 
PRA 
PRA2O 
PRAXIS 
PRNUP 
PREPLOT 
PRPUTF 
PRREG 


PRREGH 


FRSICH 
PRSTK 
PRSTKX 
PRICAT 
PUAIT 
PWRITA 
REGL 
REGLOP 


. SIGSTF 


‘ 








' SKPC4 


SKFCHE 


. SKPCOL 
. SKPCOM 
 STKADR 


1627 
1264 
1742 
1773 
1636 
1242 
127% 


1244 


1234 
123¢ 
416 
1626 
re) 
24k. 
1361 
1416 
1374 
1342 
1347 
1645 
1762 
1765 
1444 
1454 
1532 
i201 
1135 
1162 
1208 


AAS 


EXTERNAL REFERENCES 


ACA 
ALA 
ACCHR 
ACCRR 
AccoOL 
Acc UL 
ACSFEC 
ACSPEC 
ACK 
ACK 
ACZ<-toa 
BDS-30 
BECHK 
BECHK 
SLOSPL 
SLOSP2 
CHKADR 
CHKADR 
CKANGL 
CKANGI 
CKEN 
CKEN 
CNHTEYT 
CHTBYT 
TUN Y AL 
RONV SEL 
CON SD 
TONV ZA 
CPCMHE 
CEGMHS 
DETRPR 
DATAPR 
EOLL 
SOLL 
ERRDE 
ERRDE 
FMT 
PMT 
PNDEND 
FAMDEND 
FHD?TR 
SHD=TR 
casts 
rHStTs 
GETPC 
GETPC 
IACHR 
IRCRR 
TACGL 
TacacL 
TAURILL 


TAUALL | 


TAUNS 
TRUNE 
THCAD 
THAD 


Pwa-~ AAS Ul 


1763 
1764 


1543 
1544 


1162 
1163 


1766 
1761 


1264 
$265 


G Jy 


a. > 
teh PS 


— oth 


1416 


1447 


1604. 


1605 


INTFRe 
INTFRO 
IPRT 
IPRT 
LDOSSTS 
LDOSiTG 
LISt 
LIS? 
LISTEN 
LISTEN 
NATBYT 
HATRYT 
OVFLEO 
OVFLIG 
PAREG 
PRREG 
PEINBO 
PSINBG 
PEYAtC 


PBYAtC 


PBYTDU 
PBYTDU 
PBYTEC 
PBYTE 
PCHKKB 
PCHKKB 
PECHK 

PECHK 

PEDIAG 


| PEDIAG 
| PHEAD 
- PHEAD 
 PRLENS 
 PRLEND 
 PRIART 


PRI4RT 
PRA 
PRA 
PRAXIS 
PRAXIS 
PRBUF 
PRBUF 
PRFLAG 
PRFLAG 
PREEYS 
PRKEYS 
PRNOP 
FRNOP 
PRP 
FRP 
PRPLOT 
PRPLOT 
PRPLTP 
PRPLTP 
PRREG 
FRREG 
FPRREG» 
PRREGY 
FRSTC 
FRSIGM 


42 
43) 


a 
= 


Fé. 


1342 
1342 


1266 
1267 
1725 


1724 


1545 
1546 


1620 
162]. 


1450 
1451 


1555 
1556 


1574 
S75 


FRSTK 51 i 
FRSTK 30 . 

PRTLCD 1705 1710 

PRTLCD 1706 1711 

PRTh 1602 

PRIM 1603 

PRINSG 1576 1701 -1725 

PRIMNSE 41577 1702 1726 

PRX 53 

PRA 32 

PUAIT 1606 

PWAIT 1607 

REGLOP t61b 

REGLGP t6t? 

REGPLT s . 
REGPLYT 24 . 
STIGSTF ~GE 

SIGSTF 1502 


SKPCHR of 
SKPCHE 3D 
SKPCO!. 6} 
SKFCOI. 60 


STKADR 1562 
STKADR 1564 
STKPLT 62 
STKPLT 62 
STOPS 1776 ; 
STOPSH 1777 | ; 
SUMCHK 1374 
SUMNCHK 1375 
UNL 1454 
UNL 1455 


End of VASM assembly 


JOICIICROIOICIOIORICICIOIOIIGIORIEICCICIOICICICICIOK DIC ICI IEC FOR HC HOR HCC HEC HE CIO dH HE CHC aC aE ae oe 
YASM ROM ASSENBLY REY. 681A 


2 FILE PR2B 


tt 
3 


* % % & # 


RRC ICR IGIOR HOI ICICI OOO HCC EO ACCOR HOR CECE CC cE sk dei kc dR 








1 

*& a W- PRINT MESSAGE. SENDS A LIST OF CONSTANTS (FOLLOWING THE 

* Osus PRTMSG*) TO THE PRINTER, STOPPING WHEN IT SEES THE 3TH BIT= 1, 
* use 3 THE CPSYTE OUTPUT SUBROUTINE, $0 OUTPUT IS CONDITIGNED On 

* FLAS 55S" IF THE 10TH SIT=t IT WAITS FOR BUFFER EMPTY, TREN THECKS 
* “OR FRINTER ERRORS, AND THEN CHECKS FGR “R/S” AND “ON” KEYS, BEFURE 
* “OHMWTIHUING TO FRINT THE LIST OF CONSTANTS. THE 9TH AND 10TH BITS 

* MOY NOT BOTH BE SET IH THE SAME CONSTANT. WHEN THE 10TH BIT IS SET, 
*« IF "R-S¢ OR "ON" IS DOWN GR AN ERROR HAS UCCURRED, PRTNSG AEGRTS. 

* 

* USES: FOR BIT 1050: C,N, NO PT, S9, HEXMODE, 1 ADDITIONAL SUBRQUTINE 
* LEVEL 

Ss FoR BIT iv=t: A.x, C, NN, No FT. S39, 7 ADDITIONAL Stik LEVELS 
a NOTE THESE BIT {6=1 COMMENTS ARE PARTLY GUESSES 





IN: LIST OF CONSTANTS FOLLOWING THE “GOSUB PRTMSG", WHERE THE LasT 
* IGHSTAHT HAS THE 9TH BIT=1 TO FLAG THE END OF THE LIST. 
* OUT: MESSAGE TO PRINTER CIF FLAG 55=1), CHIP @ ENSBLED, HEXMODE, 
* S9=! FOR ERRORS. 
* ASSUMES: HEXMODE 
oe . 
* PRIMSL - SANE AS PRTMSG EXCEPT WILL OUTPUT AN EOLL IF LAST EGL 
* IS NOT A EOLL 
* 
*CAUTIGN!!! DQ NOT MOVE PRTINSG FROM THIS LOCATIGN CQUAD 2, @OG0>) !t11! 
* | IT MAY BE USED BY OTHER PLUG-IN ROMS. : 
24 
35 | ENTRY PRTNSG 
24 PRIMSG- ENTRY PRTMSL 
6490 37 0 PRPS ceo cHsTK GET ADDR OF 1ST CHAR 
22 1 PRTIMS! 1460 CXISA GET CHAR 
ze 2 1 GOSUB CPBYTE(6F4?) SEND SHAR TO PRINTER 
29 3 0 
4 4 1072 t=C+t INC ADDR 
df 5 1366 7? CHO XS DONE? 
42 6 1733 GONC PRTMS1 ¢ 1) NO 
42 ? S60 STK=Ct PUT CHR POINTER ON STK 
a4 10 766 C=C+C Ss IS THIS A 1000 CODE? 
a5 tt 766 C=C+C XS 
4¢ {2 766 C=C+C XS 
47 13 1640 RTN. NC NO A 400 CODE 
4s 14 , 1 GOSUB PWAIT WHIT FOR THE PRINTER 
qo 15 7 u 
qt 16 1622 GOTO PRTITMSG ¢ i) 
bd 
S4OF 54 i? PRIMSL 644 C=HPIL 6 GET LAST STATUS 
54 2c é72 
54 21 663 
52 22 1474 RCR 1 
53. 23 ~—~C« 776 C=C+#e §$ LaST EOL AN EGLL ? 
Sq 24 . 1643 GONC PRIMSG ¢ a> YES 
c5 25 460 LDI 
S6 26 340 CON @3490 ES 
57 2? 1 GOSUB CPBYTE SEND AN ECLL 
57 3 0 
Se 6 BY 1473 GOTO  PRIMSG ¢ 0> 
“$5 MRC he Be fe The et fs 2h he he ode de ic ite 2 Ot She ate Sc oe oe ode 24 ode oc ode oi eC Re Sc ke NC ER i EO CER EO 
ed | ENTRY OVERFL 
Gt 32 OVERFL 1140 SETHEX 
62 33 1 SOSUB IAUNA OK TO PRINT? 
62 «34 v 
£2 35 1740 RTH P+i -- COH‘T FRIHT 
id 36 1 GOSUE ACKSUE P+2 -- PRINT X REGISTER 
é4 37 0 
65 40 373 GOTO DATP25 «( 77) 
ee 


#OVERFL FALLS INTO DATAPR HERE! FP bby bb bra bedi 


£9 


69 


EJECT 


* DETAPE - PRINT DATA ENTRY STRING AND CLEAR DATAENTRY FLAG 
* IF PRINTER IS OFF GR IN MANUAL MODE, RETURNS WITHQUT PRINTING. 
* IF ANY PRINTER ERRGR, CALLS RSTSED AND GOES TO PEDIAG (NEVER 
* RETURNS >. = 
* 
* REGUIRES CHIP 0 SELECTED ON ENTRY 
* DOES NOT REGUIRE HEXMOGDE OR P SELECTED GN ENTRY 
* USES 3 ADDITIONAL SUBROUTINE LEVELS! 
* USES A, B, C, G, N, P, @, $0-53 
* LEAVES HEXMODE, CHIP 0 SELECTED, P SELECTED 
« PRESERVES M 
*- 
Bz ENTRY DATAPR 
672 41 DATAPR 1140 SETHE 
&4 42 240 SEL P 
as 4% 1670 C=REGN 14 
26 44 1074 RCR 2 
B? 45 1530 ST=C PUT UF SSt 
33 46 1014 752=1 DATAENTRY FLAG SET? 
Bg 47 1640 RTN NC HOPE 
90 50 104 S2= 0 CLEAR DATAENTRY FLAG 
91 51 1630 C=ST 
g2 52 1574 RCR 12 
93 53 1650 REGN=C 14 PLT SS1 BACK 
a4 ; 
95 54 - 4 GOSUB ITAUNA 
95 55 0 
96 56 1740 RTH P+{ - DON’T FRINT 
97 : P+2 ~ OK TO PRINT 
9S 57 1670 C=REGN 14 RESTORE SS& 
$3 &6 1536 $T=C 
160 61 14 753=1 PROGRAM MODE? 
101 62 43 GONHC DATP15 ¢ 66) NO 
* WE’RE IN PROGRAM MODE WITH THE DATA ENTRY FLAG SET. A DIGIT ENTRY 
* STRING OR ALPHA ENTRY STRING HAS JUST SEEN INSERTED INTQ FROGRANM 
* MEMORY. LINE# MUST BE VALID AND NON-ZERO. PRIVACY MUST BE CLEAR. 
tes 63 ) 1 GOSUB PPGMST 
108 64 G 
1 (0% 65 53 coTu DATP17 ¢€ 7B) 
167 
148 66 DATPIS t214 797=1 ALPHANODE? 
1045 67 63 GONC DATP20 ¢ 75> NO 
110 YES, ALPHAMNDE 
111 70 1 GOSUG PARES SEND ALPHA REG TO PRINTER 
113 71 a 
112 72 DATPI? 1 GOSUB ECLL 
112 73 0 
113 74 103 GoOTa DATP3G ¢ 4104) 
114 
115 75 DATP20 1 GOSUB PRTDEF PRINT FORMATTED STRING 
115 76 a 
116 ENTRY PDATP25 FOR PRTS 
1t7 77 DATP25 1 GOSUB PRTNSG 
117 106 0 
97% «101 647 CON G@E47 SKIF ? CHARACTERS 
119 102 1 GOSUB ECLR ELE 
119 103 Q 
2% ENTRY DATP30 USED BY PRTS 
12: 104 DATP30 1114 759=1 ANY ERRGR 7 


—e ot ek mh 
PODS BR RD fo 


eo 


arth 


124 


105 
106 
10? 
1t6 
111 
112 


1 
2 
{ 
6 
{ 


2 


GOLNC 
GUSUB 


GOLONG 


UNL 
RSTSEQ 


PEDIAG 


SEND UNLISTEN 


NO, 


Be ee ORES EERE MELE REET RACE LARNER ECE ES 
*-KGOPRT= REG 3 TO PRINTER 


ERR Eee EBS 


HIT 


POIGE 


PRTDEF 


RGOP1O 


RGIP13 


vl OX 
1 
“gr Att 
tO 
eh tle 
wi mJ 


RGSP20 


RGSP24 


* 
*-PUT DLE. 
$0 —- DLP, 
S2# - CHS HIT 
t3V¥ 
122 413 
172 06114 
139 
14@ 15 
14 116 
142 417 
14206126 
$44 06421 
145 122 
144 123 
147 6124 
42 06425 
1400926 
149 12? 
1Ze 4340 
153 134 
152 132 
520 133 
54 134 
tS 35 
We 156 
. 5? 137 
"182 140 
{39 86i4t 
140 4142 
16; 143 
wee 61 44 
te7% 145 
1h34 446 
1é4 147 
1645 150 
tio 06181 
167” 152 
142 6153 
169 8154 
trou 6 +55 
174 156 
172 6157 
1730 1 6G 
174 «6161 
17506 162 


1 
9 


1070 
674 
1536 
4 
1170 
416 
1670 
1o74 
266 
1 

0 

34 
43 
114z 
676 
17°34 
342 
i747 
642 
1614 
133 
_23 


CPLERSE REFER TO DIGENT <CNZ, 
St 


55 ~ DECIMAL POINT FLAG 


ENTRY 
GOSUB 


ENTRY 
C=REGH 
RCR 
ST=C 
S3=. 
C=REGN 
A=C 
C=REGH 
RCR 

BC EX 
GOSUB 


PT= 
GoTo 
C=f-{ 
R=A-1 
INC PT 
A=A+1 
oc 
A=A-1 
?S50=1 
GONC 
GOTO 
INC PT 
R=A-1 
GOT 
GOSUB 


AC Ex 
?PT= 
GONC 
$3= 
7S4=1 
GONC 
SEL @ 
PT= 
INC PT 
7F=U 
GONHC 


POIGE - PRINT DIGIT ENTRY STRING, 


PDIGE 
INITS 


PRTDEF 
& 
1 


PT 


PT 
RGSP1O 
PT 


RGSP26 
RGSPIS9 


5 


RGS3Pt? 
LDDP106 


PT 

13 
RGYP20 
1 


RGIP2LS 


tt 


$35 3 


1545 
144 > 


1433 


STRIHG IN REG 9 INTO SAME FORMAT AS GUTFUT BY “FoRMAaT" 
@66) FOR FORMAT OF INPUT D.E. 
- EEX HIT 
$4 - DIGIT GROUPING FLAG 


STRING > 


ENTRY POINT FOR PRTS LoGic 


LOAD FLAGS - S2:CHS 


SO:D.P. 
FLAG 


$1: EEX 
CLEAR LEADING D.P, 


A REG, 


GET # TRAILING DIGITS 


# TRAILING DIGITS Ta B¢kS3 
LOAD ALL 3°S INTQ C 


START FROM END GF MANTISSA 


CePT>) _ 2 


DECREMENT D.P. PGS COUNTER 
POINT TO LEFT NEXT DIGIT 


FOUND THE LAST DIGIT? 
No 

YES, RESTORE THE DIGIT 
D.P. HIT 7 

NG, DON’T LOOK FOR DLP. 
YES, LOOK FOR DP. 

POINT TO LEFT NEXT DIGIT 
FOUND THE D.P.? 

NO 

YES, LOAD THE D.P./COMMA 


D.P.,/CUMNMA BACK Ta *c” 
LEADING D.P.? 

NO 

YES, SET 
GROUPING 
No 

YES 


LEADING O.F. FLAG 


FLAG SET ? 


LoGK FOR P 
FOUND FF? 
HG 


wom 


163 1324 7 PT= 13 YES, HOW P= 
164 2zt7 GOoCc RGSP3O0 ¢ 205> 
165 RG9P26 436 AH=C 3 AC{Z) _ 3 
166 RGIP2Z7 676 A=A-!1 S COUNT 3 FROM LEFT 
167 S?7 Goc RGSP28 ¢ 174) PUT A COMMA HERE 7 
1790 1524 ? PT= 12 NO,REACH LEFT END OF MANTISSA 7 
171 147 GOC RG9PS0 ¢ Z205> YES, DONE 
172 1734 INC PT POINT TO LEFT NEXT DIGIT 
LEGAL 
173 1733 GOTO RGSP27 ¢ 166) 
174 RGSP28 214 7S5= LOAD A COMMA TOC 
175 33 GONC «+3 ¢ 200> 
176 1720 LC 1S 
177 23 GOTO #+ 2 ¢€ 201) 
200 720 LC ¢ LOAD A D.P. INSTEAD OF 
201 1734 INC PT RESTORE FUINTER 
LEGAL ° 
202 1633 GOTO RGSP26 ¢ 1655 
203 RGIPZY 1226 7? B#G XS DISFLAY MGDE= O°” 
204 ated 233 GGNC RGOP3S € 227) YES, NO TRAILING ZEROS 
205 RGSPSO 240 SEL P 
266 1214 7S7=1 FIX MODE? 
2607 2063 GONC RGOP3S5 ¢€ 227) NO, NO TRAILING ZEROS 
2190 1414 ?S1= YES, EEX HIT? 
2ti 167 GUC RGOPS5 ¢€ 227) YES, NO TRAILING ZERGS 
212 1 GOSUB LDDP1S HO, LOAD D.P./“COMMA 
213 0 
214 242 AC EX PT D,.P.7COMMA BACK TO "C” 
215 766 CB EX &S # TRAILING DIGITS TO "C" 
216 1724 OEC PT PT TO 1ST TRAILING DIGIT 
“4 — LEGAL 
217 43 GOTO RGYPS3 ¢ 223) 
220 RGIP3S2 320 LC 3. ADD TRAILING DIGIT 
ea2t~ 1024 7FT= 2 REACHED END GF MANTISSAY 
222 47 GOCc RGSP34 ¢ 226) YES 
223 RGOPZ3 1166 C=C-1 XS NO, COUNT TRAILING DIGIT 
224 1743 GONC RG9PS2 ¢ 220) 
225 1034 PT= 2 
226 RGOP34 220 LC 3 — RESTORE C¢x53 
227 KG9P35 436 A=C S TAKE CARE OF THE SIGH 
2306 676 A=A-1 S$ ACIS) _ = 
231 136 C=9 S ASSUME POSITIVE MAHTISSA 
232 1234 PT= 13 
233 1614 ?Se=1 CHS HIT ? 
234 22 GONC  *+2 ¢€ 236) NO, MANTIESA POSITIVE 
225 1520 LO 1s ye® = 2D 
236 276 AC Es S 
237 1166 C=C-1 &S Ci2> _ 2 
240 1414 7S1= EEX HIT ? 
241 2412 GONC RGSP50 ¢ 262) NU, DUNE 
242 1a46 C=C+i « YES, Cc tI= 3 
243 1434 PT= 1 LOOK AT DIGIT 1 
244 S42 A=At+1 PT IS THERE & DIGIT THERE * 
245 | 127 GOC PGSP42 ¢ 257) NO, ENP = 66 
246 é42 A=A-1 PT YES, RESTORE DIGIT f 
247 1634 PT= tt LOGK AT OIGIT 6 
250 S42 A=At1 PT IS THERE A DIGIT * 
251 43 GONC RGSP40 ¢ 255) YES 
252 1434 PT= 1 NO 


233 16412 A SR WPT NAKE 2D EXP 


225 
23 
237 
228 
229 
24u 
241 
242 
242 


245 


254 
4295 


256 
257 
260 
261 
262 
263 
264 


RGLIP4C 
RGIP42 
RGSP45 
RGIPS0 


OUTRGY 


1634 
723 


GOTO 
A=R-) 
LEGAL 
GOTO 
A= 
PT= 
GOTO 
R=0 
PT= 
GoTo 
EJECT 


RGSP45 
PT 


RGOP45 
WPT 
3 


OUTRGD 


x3 
0 
PBDIGAC 


¢ 


260) 


260 > 


264) 


356) 


RESTORE DIGIT O 


SAY PRINT EXP 


SAY ONLY PRINT MANTISSA 


PACICIEICICIOIOR IDI CI IOICACIOICACICIOICIOICICCCRCRCICIERCHOOICAC TOR ICICHOICIC ACI ARC IACIOR IE IER EAE IE EL AES 

ir eR RR RE BR TEE SE IR PRT 1G6= VIEW: PCR NOR ROR TRACI HCR RDI HCA NCIC CHCECTRORE ICE REE HE 

CONOR CIIIIEE I OROICIOR IG AOI CACIOR SIA CROR ICCC EOI ACACIA HOA HOI HOR CHCA ORCA HCCC HCA HCCI TCR TEE IA AE EE SEE 
24g ENTRY PYVIEW 


cuge 280 265 PVIEW 116 C=0 RE-ENABLE CHIP 0 
251 266 1160 DADD=C 
252 267 1 GOSUB CKEN OK TO PRINT 7? 
252 2706 0 
253 271 1740 RTN P+) - NO 
254 272 1 GOSUB FNDPTR Pet = YES, SEE IF PTR THEFE 
254 273 0 | 
255 274 153 GoTo P¥W10 ¢ 311) NO PRINTER 
256 275 1 GUSUB INITC 
256 276 0 
257 277 40 SPOPND SHVE Aa SUBR LEVEL 
252 300 316 C=B SavE VALUE TG BE VIEWED 
253 30! 530 M=C In M 
260 302 1 GGOSUB ACREGC 
26t 303 0 
261 304 1 GOSUB RPECHK EGOLR, CHECK PRINTER ERRORS 
25' 305~ . 0 
262 306 6320 C=M RESTORE ¥ALUE TO C 
262 307 | 1 GOLONG PR1ORT | 
262 319 2 
264 311 PYU1O 1304 $13= 0 
265 312 1740 RTN 
* 
* ACHSUB CSUBROUTINE TO ACCUMULATE %) - SENDS WHATS IN THE & REGISTER 
* TO THE PRINTER BUFFER 
« USES: A,B,C,N,P,&,6,50-89 AND 2 ADDITIONAL SUBROUTINE LEVELS 
« CAUTION: I°M GUESSING AT WHAT FORMAT AND PDIGAC LSE WHEN THEY ARE 
* CALLED BY ACKSUB | 
oe INPUTS: GETS VALUE GF X FROM RS 
* OUTPUTS: A CHARACTER STREAM TO THE PRINTER BUFFER 
* ASSUMES: CHIP 0 ENABLED, $93 IS THE PRINTER INTERFACE ERROR FLAG 
* HEXMOCE 
Pg 
* ACREGC CACCUMULATE C REGISTER) - SAME AS ACHSUB EXCEPT ASSUMES INPUT 
ch YALUE IS IN C ON ENTRY. 
* 
* PRIM - SAME AS ACXSUB EXCEPT ASSUMES INPUT VALUE IN NM CN ENTRY 
. | 
282 ENTRY PRTN 
282 3123 PRTM 630 C=M 
294 314 232 GoTo ACREGC ¢ 316) 
265 ENTRY ACREGC 
226 ENTRY ACKSUB 


6¢ 


6G 


of 
rs 


Ch 287 315 aACKSUB 370 C=REGH 3%) 
¢ 6 288 316 ACREGL 36 A= MS 
. 239 31? 576 Aaz=Att “YS 
290 320 1576 ? A#C MS NUMERIC DATA? 
291 321 - 63 GONC ALPDAT ¢ 327) NG, ALPHA DATA 
232 322 1 GOSUB FORMAT YES, FORMAT THE NUNEER 
232 323 0 Care 
os 293 S24 156 AB EX 
22¢q 325 4 S$3= 0 No LEADING D.F, 
295 3226 323 G07a PDIGAB ¢ 360) SEND HUMBER TG PRINTER 
296 327 ALPDAT »416 ABC SAVE C 
297% Zau 1 GOSUB PRQUOT 


SNOT AO OM ote, oo terion ROAM TE Mgaye Hews meses eyes et te 


i 
i 
a 
i 
: 
4 
‘ 
Fie 
if 
2 
a 
t 
$ 
# 
i 
¥S 


a 
F 


Ea 
‘ 
ye 
id 





237 
232 
22°3 
300 
Zot 

302 
302 
304 
305 
306 
3907 
307 
30E 
368 
30% 
3iv 
311 

312 
313 
3i4 
315 
316 
316 


331 
332 
333 
334 
335 
336 
337 
340 
341 
342 
243 
344 
$45 
346 
247 
3S 


351 


352 
353 
354 
355 


ALPD45 


ALPDSO 


ALPDSS 


PRQUOT 


0 
256 
1574 
1434 
112 
1356 
133 
1574 


1252 


1763 
1 
0 
1 
8 
1S74 
1352 


1727 


460 
42 
1 

2 


AC EX 
RCR 
PT= 
C=¢6 
?2C#O 
GOHC 
RCR 
?CHO 
GOHC 
GOSUB 


GOSUB 


RCR 
7C#G 
OC 


ENTRY 
LOI 
CON 
GOLONG 


12 
1 
WPT 


ALPDSS ¢ 352) 


fz 

WPT 

ALFD45 ¢ 3405 
CKANGL 


PBYTDU 

i2 

WPT 

ALFDOSO ¢€ 3435 
FRGUDT 


@42 
CPBYTE 


RESTORE C 


ANY ALPHA DATA? 

NO, ALL NULLS 

CHAR TG Cc G-1>d 

NULL? 

YES, GET NEXT CHAR . 

CHECK IF THE CHAR 15 AN ANGEL SIGH 


NEXT CHAR TO Ce a-1> 
NULL‘? 
Ho 


QUOTATIGN MARK 


SOICKOTOROIOICIIEIHOIOICIRICK ICONIC OIC OR ICICI ICICIOR ICROICIHICICIOR CARS HOR OR ICEORACKOI HCE OROIEHC HU EE 
A= PUNCTUATION 
C= PUNCTUATION 


*-IHPUTS: 


ae 
* 


kee E 


Gf 2 


-U 
-O 


SE3 


Wry 


325 
326 
327 
325 
329 
33e 
333 
332 
33% 
334 
335 
336 
337 
337 
338 
335 
341 
34 
341 


342 


358 
351 


§ 


BOTH ENTRIES: 


CPDIGABI 


PDIGAC] 


B= DIGITS, 
A= DIGITS, 


: A,B,C,G,N,P,Q, 


UTS: 


260 
36! 

362 
363 
264 
365 
3266 
S6¢ 
370 
371 

3r2 
3fs 
374 
375 
376 
37? 
409 
463 

402 
303 
404 
405 
406 
407 
410 


HEX MODE, 


POLTGAC 


PDIGAB 


PDIG10 


PDIG25 


216 
416 
460 
1000 
1624 
~ 23 
406 
21074 
236 
1374 
1 

0 
460 
36 
14 

1 

1 
1534 
320 
1734 
1402 
143 


1434 


1512 
1640 
1034 

226 


53, 


ENTRY - 
ENTRY 
B=1 
A=C 
LDI 
LOW 
?PT= 
GONC 
ASC 
ROR 
C=6 
RCR 
GOSUB 


LDI 
LON 
?S3=1 
GSUBC 


PT= 
Lc 

INC FT 
PALC 
GONC 
PT= 

7 A#G 
RTN NC 
PT= 

> BHO 


P SELECTED, HEX MODE 


S9 FOR ERRORS, 


PDIGAB 
PDIGAC 


1000 [47-7 

0 

PBIG{IQO.<«¢ 365> 
% 


PDIGSO ¢ 417) 
1 
uIP T 


2 
KS 


1 ADDITIONAL SUB LEVEL 


DOESN’T USE OR CHANGE CHIP ENABLE 


DIGITS TO "BE" 
PUNCTUATIGON TO "A" 


PRINT EXPONENT? 

YES 

NO,ACO-fI=G=FLAG, ACKS = BLANK 
Ceto= 2 

GET SIGH OF NUMEER 

FUT IT IN Cc 0-1) 

SEND BLANK OR "-" TO PRINTER 


ASCII DLP. 
PRINT LEADING D.P,? 
TES, D.P. TO PRINTER 


BLANK? 

No 

YES 

EXPONENT NEEDED? 
WHO, FIN move 

“ES 

EXPONENT FOSITIVE? 


352 411 47 GO0C PDIGNS ¢ 415) NO, NEGATIVE 


357 412 1320 LC 11 YES, FUOSItTimve 
354 413 1034 FT= 2 
3506 6414 242 BO EX PT FIX "6" TG PUT OUT A "+" 
356 415 PDIGXS 220 LC 2 
357 416 1034 PT= 2 
352 417 PDIG30 1374 RCR - 13 
352 4206 342 CB EX PT DIGIT TO "C” 
Zen 421 130 Gec ASCII OI1G1IT TO "G” 
36! 422 34 SEL Q 
362 42 1634 PT= 0 
36% 424 230 C=G DIGIT TO Cf 0-1 > 
364 425 t GOSUB PBYTEC SEND BYTE TG PRINTER 
354 426 0 
368. 427 240 SEL PF 
3d6e 430 1474 RCR 1 MOVE THE "3" BACK TG CCPT? 
36Y 0431 1542 7 A#C OPT PISNCTUATION? 
36% 432 123 GOHC PDIGSO ¢ 444) NO 
369 433 460 LDI 
370 434 94 CON @i4 ASCTIT COMMA 
37t $35 242 AC EX PT PUNCTUATICN TO °C” 
372 436 742 C=C+C PT CONNA? 
373 437 37 GOoCc PODIG48 ¢ 442) YES 
374 4406 1046 C=C+i 4 NO, O.F. 
3750 (441 1046 C=C+t Cie = @56= ASCII D.P. 
37 Fs LEGAL 
377 442 POIE4S 1 GOSUB PBYTEC SEND FUNC TUATICGN TO PRINTEF 
Fr 443 0 
373 444 PDIGSO 1724 DEC PT 
379 S45 1324 7? PT= 13 DONE? 
3G6 446 1323 GONC PDIG25 ¢ 4060) NG 
38: 447 1740 RTN YES, DONE 
38e 


38 EJECT 


; 
2 


? 


URONIC I ORIG ICICI OICEOROIOIOHCR GE CHCA GIO ROR OR CR CECH ai ACO aC a RO ACC Hak i 


FOO a Ok eeik PRT2 -- NEXT INSTRUCTION IN MAIN LOOP 


AER He te Ne HC ee EC: 


Seek so i icici dee andi kok ade died ae cided ie ic ioe te kalo tadelc deka tei desk dei ede eke stete keke tke fee dk ate tee at 


| 387 k ENTRY WXINST 
6$@2338 450 NXINST 314 7910=1 
: 3389 451 1540 RTN C 
39G 452 106 C=0 x 
39% 493 1160 DADD=C 
392 454 1630 C=5T 
39:3 455 414 7S8=1 
394 456 23 GONC NXINI1O 
395 457 1066 C=C+1 XS 
396 460 NKXIN10 1150 REGN=C 9 
397 461 1574 RCR 12 
335 462 126 Cc=0 xs 
339 443 1346 7? CHO xX 
450 484 1 GOLNC RUNING 
40 465 2 
401 446 1 GOSUB CKTRCE 
40+ 467 0 
402 470 113 GOTO NXINTS 
402 471 1 GOSUR FNOPTR 
462 472 0 . 
404 473 63 GOTO NXINIS 
405 474 160 N=c 
406 475 114 754=1 
407 476 67 GOC NXIN2] 
405 477 1 GOSUB UNL 
46g 500 0 
46% 501 NXINIS 1170 C=REGN 9 
410 502 1530 ST=C 
41i S03 1740 RTN 
44a : 
_* WE ARE SAVING IN RG: R9C13:107=0RIG 
im R3.XS=S6 
me R9E1:G)=S7-0 
: oe 
417 504 NXIN21 1 GOSUB GETPCA 
417 505 0 
4183 506 1270 C=REGN 10 
439 Sor #52 c=A WPT 
419 510 412 
4zu 511 1256 REGN=C 10 
421 512 1 GOSUR PUTPCD 
421 513 G . 
422 514 1 GOSUB FLINKA 
4z2 515 0 
423 516 116 C=0 
424 S17 1160 DADD=C 
425 520 1514 7812=1 
424 521 73 GONC NXIN3O 
42? 522 1 GOSUB UNL 
427 523 0 
42% 524 1 GOSUB CLR&SS 
4206 SEH 0 
429 526 1 GOLONG ERRPR 
429 S2P 2 
430 
431 S30 HXIN3ZO 266 C=N 


€ 4603 


¢ S01) 


¢ 501) 


« 5042 


ROMFLAG 
YES 
RE-ENABLE CHIP 6 


ST TO CL1:0) 
COPY $8 TO C.KS- 


SAVE MISC INFO IN REG 3 
FC TO Crt:0) 


IS THIS NOW-NULL 
NULL 


SEE IF PTR IN TRACE MODE 


HG 
LOOK FOR PTR IK LOGP 


PRINTER NOT FOUND 
SAVE C IN N FOR INITC 
"ALL" MODE’ 

YES 


RESTORE C~-REG 
RESTORE sTATUS 


COIS: 10) 


€ SoO> 


GET ORIGINAL PC 


COPY ORIGINAL PC Ta °c” 


PO IN Ritoc a: 02 
& STORE Pt 


SAYE ORIG 
DECREMENT 


RECOMPUTE PRIVACY 


RE-ENABLE CHIF JU 
PRIVATE? 


NO 


YES,CLESR RUNHING & SSTING 


RESTORE ¢ 


432 S31 1 
432 S32 b 
4325 533 {270 
434 534 416 
435 535 1170 
43F 536 1574 
$37 537 1 
437 0-540 0 
432 541 t 06 
4334 542 11606 
440 43 i14 
441 544 1 
44$ S45 1 
44% 546 HINT 1 
442 547 a 
442 5590 fli 
44<- 551! 1G? 
445 552 14 
44% 553 33 
447 554 1116 
4$4@ 555 43 
44% SS6 HHIN?S 776 
So 557 776 
451 ° 566 1463 
$52 
45> 561 N¥INSO 1204 
4549 S62 — 1 
$54 563 Ql 
$55 564. 1 
455 565 0 
454 S66 111414 
457 S5é?7 = 53 
452 370 1 
4452 S74 0 
459 S72 1 
459 573 2 
46 574 HXINGO [32 
461: S75 134 
462 S576 1720 
*THE "LO" LEAVES PT= 3 
465 Sve 760 
445 600 1270 
45¢ 607 $12 
467 602 1 
467? 663 0 
* 
* 
470 6064 1 
479 605 Q 
471 666 1170 
472 607 1230 
4735 619 +04 
474 611 1766 
475 612 23 
$?6 613 410 
q>7 614 HXINGS 1 
q77 6615 2 
Bd 
b 


GO5UB INITC 

C=FREGN 10 

R=C 

C=FEGN G 

RCR 12 

GUSUB LBLCK 

C=0 * 

badDp=C 

734=1 

BSUBC GLINE# 

GOSUB FNSTS 

7591 

6Oc NXINSO ¢ 561) 
73S3=1 

GONT RIN?VS ¢ S583 
$9= 1 

GOTO NXINSO ¢ S61) 
C=C+C § 

C=c+C § 

BONC HKIN7OG © 546) 
S7=. 0 

GOSUB PFGSNL 

5BO05U8 EUCILR 

7$9=1 

Gre NNINSO ¢ S74 
GOSUB CLR&SS 


C=0 MN 

PT= 4 

Lc . 15 
Preorrel 
STK=C 

C=REGH 190 

A=C WPT 
GOSUB . PUTPCF 
GOSUB UNL 
C=REGH 9 

ST=C 

5$= 0 

? C#O x5 
GONC NXINGSD € 614) 
35> 1 
GOLOQNG NOPRT 


INITIALIZE 


FETCH GRIGINAL FC 
PO TO ACS: 0) 

GET FUNCTIGN CODE 
FC TO Cc a-19 
CHECK FOR LBL 


RE-ENABLE CHIP 0 


FC= L&L? 
YES,COMPUTE LINE # 


FETCH PRINTER STATUS 


ERROR? 

YES 

uorPS? 

HO 

SET ERROR FLAG 


IDLE? 
NO, WAIT SOME MUFE 


SET UP FGR FFGSHL 

PRINT PROGRAM STEF 
PRINT RIGHT JUSTIFIED 
ANY PRINTER 


NG 
CLEAR RUNNING, 


ERRORS? 


SST, PAUSING 


PUT NFRPU BACK OW THE 
RTH STACK 


NFRPU= GOFO 


ORIGINAL FC 
wye 


Pl & 


FETCH 
PC TO 
STQRE SET LINE#= FFF 


UHLISTEN 


sl C n 
ST 


RESTURE 
RESTCRE 


TEST STORED STATUS UF S35 


BACK TO MAINFRAHE 


woo fe tO oe 0 fs tt ce te ct 8 ete ee 146 1 ROHCAC NAR TEC TR CHE cd i oo le ee SER ee toe 


432 531 { 
4352 532 vl 
4325 833 276 
434 534 416 
435 535 1170 
436 536 1574 
437 537 1 
43, 540 0 
43m «541 106 
qu £42 1160 
44) 543 i14 
444 S44 1 
444 545 1 
442 546 HXIN?G 1 
442 $47 0 
442 550 fli 
44- 551 107 
'445 552 14 
44% 553 33 
447 554 1116 
44@ 555 43 
44% S556 NHIN?S 776 
Su 557 776 
451 560 1463 
$52 
453 561 NHINSO 1204 
454 562 — 1 
454 563 0 
455 564. 1 
455 565 0 
454 S66 1144 
457 5é?7 : 53 
445% 570 1 
4S S71 0 
45% S?e 1 
459 573 2 
46 574 HXINSO 132 
46: S575 134 
462 576 1720 
*THE "LO" LEAVES PT= 3 
46s 577 S60 
445 600 1270 
456 667 $12 
4A” 602 i 
467 603 0 
* 
x 
470 604 1 
476 605 Q 
473 666 1170 
472 607 1530 
473 616 404 
4794 611 1266 
475 612 23 
476 613 410 
4°77 614 HXINGS 1 
477 6615 2 
* 
* 


ORCHNOROR ECORI COIOIOEOHUIOAECECHGEOR CHO EOI ICOICCECECICE ECHO ECE OR HCE HCC HCHTEGR CE ECE CEH i cE ie Ra ta oe 


GOSUB INITC 

C=REGH 10 

A=C 

C=REGN 9% 

RCR 12 

GUSUB LBLCK 

c=0 x 

DADD=C 

734= 

GSUBC GLINE# 

GOSUB FNSTS 

7S9=1 

GOC NXINSO ¢ Seid 
7S3= 

GONC NAINVYS € S58) 
Sos 1 

GOTO HXINSO ©€ S61) 
C=C+C §$ 

C=C+C $ 

BONC NAIN@ZO © S46) 
S7=. 0 

GOSUB PPGSNL 

GBOSUB EULR 

?S3=i 

GON HRINDO ¢ S74) 
GOSUB CLR&SS 


GOLONG PEDIAG 


C=0 M 

PT= 4 

Lc ss 48 
pibyuryg 
STK=C 

C=REGN 10 

A=C WPT 
GOSUR . PUTPCF 
GOSUB UNL 


C=REGH 9 


ST=C 

$8= 0 

? C#O AS 

GONC HAINGS € 61429 
55> 1 


SOLONG NOPRT 


INITIALIZE 


FETCH GRIGINAL PC 
PC TO ACG: 0% 

GET FUNCTION CODE 
FC TO C¢Q-1> 
CHECK FOR LBL 


RE-ENABLE CHIP 0 


FC= L&L*? 
YES, COMPUTE LINE # 


FETCH PRINTER STATUS 


ERROR? 

YES 

uoPS 

HO 

SET ERROR FLAG 


IDLE? 
NG, WAIT SCME MUFE 
SET UP FGR FFGSHL 
PRINT PROGRAM STEF 
PRINT RIGHT JUSTIFIED 
AHY PRINTER ERRORS? 
NO ; 
CLERR RUNNING, PAUSING 


SST, 


PUT NFRPU BACK OH THE 
RTH STACK 


NFERPLS GOFO 


FETCH ORIGINAL PC 
Pc TO "A" 
STORE PC & SET LINE#= FFF 


UNLISTEN 


RESTURE “C" 
RESTGRE 5ST 


TEST STORED STATUS UF 36 


BACK TO MAINFRAME 


SES 


iI!) 


540 652 263 
o¢1 6233 DFS 1436 
S42 654 436 
S43 655 1670 
S44 656 1330 
S45 657 14 
34% ©6660 { 
34h «6.661 3 
3470662 1474 
S42 663 1530 
S49 664 636 
550 665 274 
Sot 666 34 
552 667 412 
553 670 1220 
sos 6671 r2Q 
555 672 320 
S5é 673 420 
55° 674 34 
552 675 1552 
SS? 676 1S? 
PRA 


IF THE FCN IS PRX AND 


PRINT THE YALUE UF xX, 


%* RF € 8 


GONC 
C=ST 
Be EX 
C=RKEGHN 
ST=C 
7S3=1 
GOLC 


RCR 
ST=C 
C=M 
RCR 
PT= 
A=C 
Le 

Ke 

LC 

Lec 
PT= 

2 AKC 
Gac 


THE DATA ENTRY FLAG 15 NOT SET, 
PRINT ANYTHING HERE IN PRIS. 


DFSOUX ¢ 700) 


14 


DF 400 


—* 


WAGUN~ EGU 
o UV 
+ 


= 
Uv 
-{ 


Cc 
“Ty 

_ 
oQ 


cm 


€ 743) 


SAVE PRINTER STATUS 
IN BLT: 0) AND (£13:12) 
PUT UP SSO 


PRQGRAM MODE? 
YES 


PUT UP 1/2 


SS 
FC TO C3:0 
FC TG A3Z:0 
FC FOR PRX=APS 
FC#PRX? 


THEN WE CON’T 


“WE JUST LET THE PRX FUNCTION ITSELF 


IF, GN THE OTHER HAND, THE DATA ENTRY FLAG IS SET, THEN PRTA PRINTS 
JHE PIGIT ENTRY STRING AND ABORTS THE PRX FUNCTION, 
Ssé 677 S14 756s DATA ENTRY FLAG? | 
56? 706 DF9OOX 313 GONC DF90NT ¢ 731) NO 
962 701 1 GOSUB PDIGE PRINT OIGIT EWTRY STRING 
568 702 0 
569 703 1 GOSUB DATP25 
562 704 0 
S7u 705 1 GOSUB RSTSEQ 
S70 706 Oo | 
S71 707 1 GOLONG NFRPU 
S71 710 Z 
572 711 DFOSY 1 GOLONG DF905 
572 712. 2 
S73 
374 713 DF20 214 7356-1 DATA ENTRY FLAG? 
575 714 653 GONC OF200 ¢1001) NO 
576 715 14 7S3=1 ALFHAMODE? 
77 6716 67 GOC DF40 ¢ 724) YES 
9°38 71? 1 GOSUB POIGE PRINT DIGIT ENTRY STRING 
S73 720 0 
579 721 460 LDI 
Sse 722 21 CON 17 RIGHT EDGE OF DE STRING 
53% IN CHAR Pus i? 
562 723 153 GOTO oFSO ¢ 740) 
3G 2 
534 724 DF40 1434 PT= FC FOR PRA=A743 
S85 725 $20 Lt 4 
SSF 726 1020 Le 3 
S67 727 34 PT= 3 
S55 730 1552 7 aac WPT FC#PRA? 
563 731 VFSOCT 613 GONC OF900Z ¢€1012) PRA 
* THE SUNCTION PRA WILL PRINT THE ALPHA REG, SO THERE ’S N& POINT 


* IN PRINTINC IT HERE. 
392 F3e 1 


BOSUB 


INITS 


; 
‘ 
i 
{ 
3 
2 
i 
i 
} 
: 





952 
S93 
v9.2 
994 
995 
296 
397 


"33 
734 
#335 
736 
137 
740 
v4 
742 
743 
744 


745 
746 
747 
vog 
roi 
(52 
793 
*S4 
735 
756 
vor 


Cis 
1074 
1015 


DFS90 


1670 
1156 
1650 


74 
406 
1670 
1056 
1650 
1634 
230 
126 
306 
460 

27 
«46 
7 6 


DF? OD 


DFSUGY tz 


OF3006 


GOSUB 


bt ot 
a & 
ip 
= c 


GOSUE 


ENTRY 


GOUSUB 


C=RKEGN 


PAREG 
M 

3 

g 
HPFTST 
DF rt 


14 


14 
CPFKE 


—~ XK Gl 


a =~ 


xx 
re 


FILLIN 
DF3G0 

FILLWP 
DFIOD2 
NPFTST 


DFSO02 
INITS 


CPFKB 
EULR 
DF9OD 
DF 400 
INITS 


i4 


€ 776) 


¢1006> 


¢ 1006 


cfat2d 


Re LEO7D 


PRINT ALPHA REG 


CHAR COUNT TO C.K 


SAYE CHAR COUNT IN G 
NON-PRIHTING FCW? 


P+1 - NON-PRINTING 
P+2 - PRINTING 
CLEAR FLAG S35 TO SUPPRESS 
PRINTING WHILE 

COUNTING CHARACTERS 
COUNT CHARS IN FCH DES? 


SAVE FCN DESC LENGTH IN A. 
RESTORE FLAG 35 
FLAG SS IS THE 

PRINTER EXISTENCE FLAIs 


RECOVER ORIGINAL CHAR COLNT 
A. X=CHAR CT + FON DESC LENGTH 


A. X=Z3-C CHAR CT+FCH GESC LENETH> 


TOO MUCH FOR ONE LINE 
NAKE FCN DESC RIGHT JUSTIFIED 


~ NOH-PRINTING 
PRINTING 


P+} 
P+e - 


SEND FCN DESC 


PROGRAM MODE 


GET $8 12 


oti 
642 
642 
644 
645 
645 
64%. 
647 
647 
64@ 
64% 
649 
6518 
651 
652 
652 
654 
6355 
65% 
636 
656 
657 
652 
$9 
661) 
661 
662 
667 
66% 
664 
664 
663 
66% 
665 
667 
66%) 
669 
679 
671 
672 
672 
673 
674 
675 
67% 
err 
67% 
679 
65 
683 
652 


— 6S 


6384 
_6es 
63> 
66° 


- 634 


637 
63? 
RELL 


{0416 
1017 
1629 
{021 
1uZe 
1t23 
1024 
1e25 
1028 


+ —- 
Qo c 
GI) MM 
se oO “J 


{032 
1033 
1634 
{uss 
1036 
1637 
i140 
1041 
1 ti42 
1043 
1044 
1045 
10146 
1047 


DF4i6 


1050 . 


1051 
1052 
1053 
1054 
1055 
1056 
195? 
1060 
1061 
1062 


1063 
1064 
1065 
1066 
1067 
1070 
1071 
(1072 
1073 
1074 
1675 
1076 
1077 
1100 
1161 
1102 
1103 
1104 
1105 
11:06 


DF414 


DF41S 


DF44 


1474 
II30 
o14 
213 


1346 
33 
514 
27 
1046 


630 
{274 
126 
406 
450 
StS 
1546 


aoe of 


466 


- 31? 


1546 


S43 


—_ ors = 


INTC OFFO0 HERE 


a-a-o-” 


RCR 
$T=C 
756-1 
GONE 
GOSUE 


?S3=1 


GSUBNC 


GOSUB 


oC gf = 
us 


$0 


oo Tw 
Ol it 
up iil 


GO 


UB 


GOSUB 


CaM 
ST=C 


“FS4=4 


GOWC 
7?S1i2=1 
GOC 
GOSUE 


GOSUB 


BosuUeE 


1 


DF 416 
GETPC 


INCADA 


NXBYTA 


WPT 
6 


PPGS3S5 


EQLL 


DF 300 


DF 909 
GETPC 


SKPLIN 


GETLIN 


x 
DF414 


DF 415 
a 


LINELB 


xxNI 
oF 


12 
a 
DF 420 


ie 
x 
DF4+20 


PBLANK 


DATAENTRY FLAG? 
NO 
PRINT DATAENTRY STRING 


AL PHANDDE? 

NO. SKIP GYER NULL AT 
BEGINNING OF DIGIT ENTRY STRING 
FROM FROGRAM MEMORY 


SET UP FUR 

PPGS3S 
MOVE ADDR TO BCS: 0) 
SAYE FC 

IN G FOR PPGS25 


PUT PTEMP2 

TO ST 

"INSERT" BIT? 
NON-PROGRAMNMAGBLE FUNCTION 
PRIVATE POM? 

YES, DON’T PRINT ANYTHING. 
ACQ-3o2= FC 


TEST FOR PC AT AN END 


Ci X= LINE#, EN CHIP 6 
LINE NUNBER= 0007 

YES 

NO, Was IT AN END? 

YES 


INC LIWE # 
LINE # TO PRINTER 
I3 FC=ALBL OR LELHN’? 


FC TO 
AK 


CD=ALBL 


FC#ALBL? 
AL BL 


CF=LBL HN 
FCHLEL NN? 


Ccf$3t> LEL NWN 


659 


690 ENTRY DF9OS 
| 691 1107 DFI00 1 GOSUB DATP30 CHECK ERROR FLAG 
; 691 1110 0 


* (ON RETURN FROM PDAT3ZO, S939 IS CLEAR 
692 14911 DFGOS 630 C=M 


: 694 1112 1376 7086) S$ RESTORE $9 

* 695 1113 23 GONC DF910 ¢€1115> 

» 696 1114 4110 $9= { 

( 697 1115 DFS10 1634 PT= 0 

«698 1116 130 G=C RESTORE PTEMP2 TO G 

< 699 1117 1074 RCR 2° | . 

- Fou 1120 346 BC EX X RESTORE 3D ARG TO B.X 
7ot 1121 1074 RCR 2 

702 1122 134 PT= 4 

- 708 1123 412 A=C WPT RESTORE FC TO AL4:1] 

70a 1124 274 RCR 5 

708 1125 530 M=C RESTORE XADR TG ME3:0] 

FRE 1426 1166 C=C-1 XS INIT N.X FOR CLE 

POF 1127 160 N=C 

708 1130 1740 -RTN 
70% 
710 1131 DF420 1 GOSUB PRTMSG LABEL - PUT IH A DIAMOND 
710 1132 : 0 

711 14933 400 CON @400 DIAMOND 

712 1134 1473 GOTO DF440 (11033 


rie EJECT 


i 


RA AO REI CECHCR CIC RCICROIOIC ECCI CHOROICICROROI HOR ICRC CRMC ACHE OAIRCOECRORCH ESE CECE OR ce#: 
wk aR ORC RRR OR otto eR HOE STRIP LOT ttt OR OR RRR NOOR ROR HCA HC OCR EE: & 


RORORORICICIOIR CIC OIRO CCICICICCIOROCCHCKCICICRCIC CCIE CCCACACECHCACHCACHCHCHE OR HCE $d HCCC ds 
*18 ENTRY STKPLT 
719 4435 =24 CON G224 T 
f20 1436 tf CON Gi? 0 
vet 1137 14 CON @14 L 
Vez $146 20 CON @20 P 
723 1141 13 COW @1Ss K 
724 t142 24 CON 24 T 
725 1143 23 CON G23 $ 
fab 1144 STKPLT 1 GSOSUB IACHR 
26 1145 0 : 
va? 1146 140 S4= j S4=1 TO SHOW STKPLT 
fe V4? 133 GOTO RPLTOOG C1162) 


SE OT ROR ICCC CR ACICIRIOIORCIHCCCICRCICIC HC HORCICROI ORCC CE CHORES HC da HH 4: 
Wr OCR NOR ORI efoto = RE GR L Tt rete tC tO RO ORCA OR de Ot: 
EN RO ROR ACC EAE ACRE RIC ICIOR HOR OR I Ck OR CHC HCE Hea He tote oie d: 


V3e ENTRY REGPLT 

723 41150 224 CON @224 T 

724 1954 1?” COW @17 0 

723 1152 14 COH id L 

(Zé F953 20 CON G20 F 

?3r 1154 ’ CON Gr G 

ree 1935S 3 CON. es E 

Vay 1156 22 CON G22 R 

“40 2157? REGPLT 1 GOSUB IACHR 

eat 1460 =| 0 2. sf 
rf 1161 104 S4= 6 349=0 TO SHOW REGPLT 
742 314162 RELTGOO 1 GOSUB GETVAL REG A= MAX, REG M= MIN 
742 1363 G 

742 1164 256 C=A COPY MAX TO C 

743 ILAS 416 

744 =#11366 1 GOSUB ACKC ERROR IF MANS ALPHA 
744 9167 0 

“45 1170 £30 C=M MIH TO C 

74h #4977 1 GOSUB ACKC '  ERRGR IF MIN= ALPHA 
74h Wtr2 6 

74 FIPS £30 C=M REG C= MIN 

748 1174 1 GOSUB A-C MAX - MIN 

7S F975 6 


*TF LMAY-MIND OVER/UNDER FLOWS THEN THE NUMBERS ARE TOO FAULTY To BE ABLE 
*TG PLOT, St GIVE “DATA ERROR”. : 


roi 
752 1976 1324 7PT= 12 RESULTS OK? ; 
753 1177 7 23 8QHC RPLTDE ©1201) NO, OVER/UNDER FLOU= "ATH ERROR. 
Vag 1200 1756 ? C#O MAX = MIN? 
23 1201 RFLTDE 1 GOLNC ERRDE ~ YES, "DATA ERROR" 
foo 1262 4 
736 1203 1376 ? C#t §$ NO, MAX < MIN? 
roe 1204 1757 G6oc RPLTDE ¢1201) YES, "DATA ERROR" 
723 1205 1680 N=C N= MAX-MIN 
7o9 1206 1 GOSUB GETVAL A= MAK 
vo9 t2uP 0 
veu 1216 $16 C=6 C= ¥Y VALUE 
Voi tai 1 GOSUB ACKC ERROR IF ¥Y VALLIE= ALPHS 
7oi fel] u 
W682 1212 316 C=8 C= ¥ VALUE CSIGN DESTROYED EY Ack} 
762 1214 1 GOSUR A-C MAX - Y YALUE 








76% 1219 0 
«FOR (MAX-¥) AN UNDERFLOW IS OK AND PERFECTLY LEGITIMATE FOR "Y" VERY 


*CLOSE TO eMAX” . JUST SET (CY-MIN? = ¢MAK-MIN)D SINCE Y=eMAX. 
*AN GVERFLOM CAN OCCUR FOR 2 CASES: 
#CASE 1 ~- MAX<O AND >a. THIS MEANS YOMAX SO IT WILL BE CAUGHT AND 
* “Y WILL BE MADE EQUAL TO NAX, 
*CRSE 2 -- MAX>G AND ¥<0. SINCE <MAX-MIN) DIDN‘T GYERFLOW, Y WOULO HAVE 
me ‘TO BE LESS THAN “MIN", WHICH WILL BE CAUGHT IN THE TEST OF 
* Y<MIN, | ; 

002 % 

7735 1216 1376 2? cC#oO § Y VALUE > MAX? 

774 1217 33 GOHC Y<MIN? €1222)9 WO 

775 1220 260 C=N YES, Y-MIN= MAX-MIN SINCE Y=MAX 

776 22 123 GOTO RPLTZ20 €1233>3 | 

772 1222. Y<MIN? 1 GOSUB GETVAL B= Y VALUE, M= MIN 

77" 1223 0 . 

77% 1224. 156 AB EX A= Y VALUE 

779 #1225, £30 C=M C= MI 

786 1226: 1 GOSUB A-Cc Y VALUE - MIN 

780 jizz? U 
*FOR CY-MIN) AN UNDERFLOW IS OK AND PERFECTLY LEGITIMATE FOR Y VERY CLOSE 
*TO MIN, ~ JUST SET CY-MINI=G, 
*AN GWERFLOW CAN GCCUR IN 2 CASES: 
aCASE 1 -- ¥<0 AND MINDGO. THIS MEANS Y<MIN WHICH TS HANDLED BY MAKING 
* Y-MNIH=6 WHICH IS THE SAME AS SETTING Y=NIN., : 
*CASE 2 -- Y>0 AND MIN<G. SINCE THIS POINT IN THE CODE IS ONLY REACHED 
* WHEN ‘¢<=MAX, AND MAK-MIN DIDN‘T OVERFLOW, THIS CASE IS IMPOSSIBLE. 

78h ; 

72> 1230. 1376 7? C#G $ Y VALUE < MIN? 

7Ou 1231 Z3 GONE RPLT20 €123353 NO 

791 1252 116 C=2 YES, SET Y VALUE-MIN= 6 

792 1233 RPLTZO 1150 REGN=C 9 REG 9= Y VALUE-MIN 

7935 1234 1 GOSUe GETVAL C= HNN.AAA 

7933 1235 ; 0 : 

794 1236— 530 M=C SAVE COPY OF NWN.AAA 

725 1237 1 GOSUB ACKC ERROR IF HNN.ARA= ALFHSA 

“35 12486 vu 

796 (241. £30 C=M RESTORE C= NHN.AAR 

797 1242 1004 Sz= G 

735 1243. 1376 ? CHO S NNN.ARA < OF 

729 1244 33 GONC GETNNN €12479 NO 

295 1245, 1010 $2= 1 YES 

Sor 1246 136 C=9 5 MAKE IT POSITIVE 

80% 1247 GETHNH 2160 S5= 1 GET INTEGER FART 

So" 1250 t240 SETDE 

664 1251 1 GOSUB INTFRC GET HWM 

66a 1252. , G 

Bor 124753 1256 2? C#O NHN= 6? 

S0e 1254 1253 GONC RPLTOE (1201) YES, "DATA ERROR” 

807 1255. 416 A=C A= NNN 

€06 1258 1i6 C= : 

2c 1257 1234 PT= 12 

Btu 1260 120 Le i C= j 

811 1261 1 GOSUB A-C . C= NHN - 1 

Si: 1262 v 


4Nit TS AR PGSITIVE INTEGER AT THIS POINT SO OVERZUNDER FLOW TS NOT POSSIBLE 
*BY FUBTRACTING A Yi", 


8i4 
815 1263 1'4a SETHEX 
Sie 12604 FSG M=C SAVE HNN-t IN FLOATING FORM 


Biv 
Bi? 
813 
813 
B25 
821 
B22 
82:53 
824 
825 
826 
827 
82> 
824 
S30 
BS 


1265 
1266 
1267 
1270 
1271 
1272 
1273 
1274 
1275 
t2°6 
127? 
1300 
1301 
1362 
1403 
1304 


RPLTER 


1 

6 
406 
460 
ZS 
1406 
163 
1270 
246 
1250 
£30 
$16 
260 
124 
{ 

0 


SOSUB 


A=C 
LDI 
CON 

? ACC 
GONC 
C=REGN 
AC EX 
REGH=C 
c=m" 
A=C 
C=N 
SETDEC 
GOSUB 


CONYVSC 


x 


163 
x 


RPLTDE €1201)> 


10 
x 
190 


DY2-10 


CONVERT NHH-1 TO BINARY 


A= NNN-1 


NNN-1 < 1687 
NO, "DATA ERROR" 
YES 

C= HNN-! 
STORE NNW-1 
RESTORE F.P. 
A= NNN-1 

C= MAX - MIN 


(BINARY > 
IN REG 16 
VALUE OF RHK-1 
CF. Pi 

CFP.) 


CNHN-1 O76 MAKR-MIN 


(MAX-MIN? AND (NNN-1> ARE KNOWN TO BE VALID NUMBERS. 

UNDERFLOW IS HARD TO GET AND RESULTS IN V¥vsd UR 
cAfe-19=0 WHICH 1S GK SO DON’T CHECK, BUT AN OVERFLOW COULD 

HAPPEN FOR VERY SMALL CMAX-MIND. 


SINC 


835 
B3e 
BBE 
837 
B35 
83° 
840 
of 
S42 
B42 
842 
844 
845 
84% 
347 
84 
849 
ese 
851 
852 
853 
854 


ra 
et oe 


8564 
857 
852 
857 
Bow 
Soi 
Boi 
862 
86% 
844 
8364 
86> 
S55 
86” 
867 
36% 
86° 


0<= 


13905 
1306 
130? 
1316 
t31t 
1312 
1313 
1314 
1315 
1316 
1234 

1320 
1321 
1222 
{323 
1324 
1325 
1.226 


4327 


Sear 
1230 
1331 
1232 
1233 
1234 
1235 
1236 
1237 
1240 
1341 
1342 
1343 
13244 
1345 
1246 
1247 
1250 
{251 
1252 


4353 


CHNN-1 9< 


RPLT30 


RPLT40 


163 


1 

6 
324 
{637 
160 
416 
1170 


406 
460 
4106 


106 


Gl = 


GOSUB 


tk dau 
Daan 
cm , ft 
m 


GH 


% 


oo Db Zi 4 
Cc 


> 
ul 
C3 


LDI 
CON 
C=A-C 
GONC 
c=6 
RCR 
A=C 
C=REGN 
A=C 
PT= 

AC EX 
REGN=C 
75251 
GONC 
RCR 
c=9 
coTo 
GOSUE 


SETDEr 
3O= 
GOSUB 


? CkO 
Buc 
GOSUE 


7 A#E 
BOHC 


OVFLI0 


16 


CHECK OVERFLOW 


. OVERFLOW? 


RPLTER C1273) 


INTCAL 


x 


3 

4 
RPLT3O 
x 

11 


10 
# 
4 
WP T 
10 


RPLT40 
3 

xs 
RPLTSO 
GETVAL 


0 
INTFRC 
x 


RPLT45 
GETVAL 


ARADOS 


€1324) 
} 


1340) 


CI4ti12 


YES, "“bATA ERROR” 
N= (NNN~ to“ 0 MAX-MIN)D 


C= ¥ - MIN 
C=INTOCY—-MIWN OC NNHA-1 O70 MAR-MIND 


A= YVY 


C= V¥Y-3 

VV 3? 

YES, VVV-3= 0 
V¥V¥-3 TO C¢3-4) 


NNN-1 TO ACK) 

V¥V-3, NNN-1 TO "C" 

R10 =NNN-1, R106 3-4 =YVY-S 
SUPPRESS AXIS? 
NO 

YES, SET AAA-t 


= YVY¥-3 
C= NNN. KAA 


GET FRACTIONAL FART. 


GET .f@AA 

»-ARA=U? 5 
Na 

YES, A= MAX, N= NIN 
Max = tt? 

YES 


+ U.S 


ee en eet 


Cite ce SCI AN ee Sat ne Nee pny a ihc 


est ioe Comhurn cen s eters anectleatna ere Site moe ee nett 
eae or 





1254 
#255 
1256 
1357 
12606 
1361 
1262 
1763 
1264 
1265 
1266 
1367 
1370 
i3?}t 
1372 
1373 
1374 
1375S 
1376 
1377 
1400 
1461 
1402 
1403 
1404 
1405 
1466 


5.140? 


1410 
1411 
1412 
413 


1444_ 


1415 


AAR G: 





RPLTSO 


1416 | 


1417 
1426 
1421 
1422 
1423 
i424 
1425 
1426 
142? 
1430 
1431 
19432 
1433 
1434 
1435 
1436 
1437 
1449 
1441 


1442 R 


1443 
1444 
1445 
1446 
1447 


RFPLTS2 


1536 
33 
1270 
$23 
E3G 
1376 
37 
116 
253 
1244 
1276 
416 
260 
1 

0 
163 
406 
460 
3 
1606 
t140 
{ 

0 
406 
£46 


1270- 


‘246 
14606 
1467 
'204 
jiS0 
674 
432 
1270 
406 
466 
6 
706 
23 

6 
206 
r4 
1268 
1616 
1616 
1616 
1406 
423 
530 
1446 
47 
306 
46 
433 
1 

u 

1 

0 

1 

t 


? AKO 
GONC 
C=KEGN 
GOTO 
c= 

? C#G 
BGC 
c=0 
GOTO 
SETDEC 
C=-cC-1 
A=C 
C=N 
GOSUB 


GOTO 
R=C 
LOI 
COW 
C=AtC 
SETHE 
LOSUB 


R=C 
R=A-1 
C=REGN 
AC EX 
? ACC 
GOC 
$S= 
REGN=C 
RCR 
A=C 


On. DAA 
om 


a=) 


2 
SQA oMmMopaot 


=a 
mt 


A 
tri 


emmy So 


aa iw it 


BOSUB 


GOSUB 


5 
AAAOTO 
10 
RPLTSO 


S., 
RAAOTS 


RPLTS5O 


S 


INTCAL 


RPLTSO 
% 


3 
x 


CONYSC 


oe 


oa 


PLIS2 


Axx Dax x~—~32z-—-wao 


x 
uw 


“4 
RPLT36 


x 
RPLT?S 
* 

x 
RPLT61 
SKPC4 


-INITSC 


PRTMSG 


C1360) 


C1441) 


€1365> 


C1411) 


C1444) 


C4249 


C14P?5) 


€1442) 


—<€1S04) 


NO, MAY < &? 

NO 

YES, AARA-1= NNW-1 
C= MIn 

MIM => UO? 

NG 

YES, ARA-f= 0 


CHANGE CMIND TO ¢-MIND 

= -MIN 

C= ¢NNN-1 97°C MAX-MIN > 
C=INTOI-MINC HHN-1 OY“ MAX-MINO+O, 3] 


A= EXP OF .RAR 


MULTIPLY . AAR BY 1000 
CONVERT TO BINARY 


= RAR 

= RAA-1 

©6-19= WNN-T 

, C= AAA} 

1 < AAA-1? 

G AXIS AT RIGHT MARGIN 


RACK 4= AAR-I 


ACM >= ARAW1 
C= NNN-1 
A= NNN~-Tt 


A= NNN-?7 
NMA < OF? 
YES 
B= 
C= 


HNN-7 ; 
Vm 3 


AAR} f YVY- 3? 
NO 
N= 
ABA-f 


YS 

< WHNS-?? 

YES, PLOT AXIS LINE 
NO, C= NNN-7= SKIP 
#RCOL= 0 


SKIF COLUMNS & FLOT VALUE 


SRFCOL= ACX3= AAA-iI 


SEND OUT MODE= SPECIAL CHAR 


1456 567 CON @Sé7 AMIS LINE 


i451 146 A=6 Y @= NNN-? 

1452 206 

1453 £30 C=M | C=VY¥V-3 

1454 1406 ? ACC X NNH-?7 < ¥YV-3? 

1455 7 coc RPLTS0 €1457) YES 

1956 406 A=C x NO, A=V¥¥-3 

1457 RPLTSO 1170 C=KEGN 9 C= ARAW~1 

1460 1056 CeC+1 = €AAR-19+1= ARA 
1461 706 A=A-C X A= "9" —- @AR= SKIP 
1462 146 AB EX X B=SKIP, A=NNN~-7 

1463 706 A=A-C A= NNN-RAA~7 

1464 206 C=B x C= SKIP 

1465 153 GoTo RPLT6O0 <1502> 

14966 SPLT90 404 SG= G NORMAL MODE 

1467 1 GGSUB INITSM SEND MODE 

1470 0 

1471 { GOSUB PRTMSG 

1472 0 

1473 401 CON @401 LITTLE X 

1474 373 GOTO RPLT65 ¢€1533) 

1475 RPLTS6 146 AG EX XxX NG,A= NNH-7, &= AAA-T 
1476 1406 7 ACC XK NNH-7 < VW¥Y-3? 

1477. — 33 SSONC RPLTS6O €1502) NO, CHY¥VY¥-3 

sac 7 246 C=A % YES, C= NNN-? 

1504 406 

1502 RPLT60 706 A=A-C X A= # REMAINING COLUMNS 
1503 206 B=A K G= #RCOL 

1504 RPLTS! 1 GOSUB SKPCOM SKIP TO CHARACTER 
1805 0 

1506 RPLT62 114 ?34= STKEPLT? 

1507 1577 Goc SPLT9Q €1466) YES 

1S5tu 1570 C=REGN 13 NO, REGPLT 

1511 74 RCR 3 GET USER REG 6 POINTER 
{512 406 A=Cc 4 A= kG PTR 

1512 460 LDI 

1514 3 COOH 3 

1515 1006 C=A+C xX = R323 PTR 

1516 1160 DADD=C 

1517 70 C=DATA CET USER REG 3= SPECIAL CHAR 
1520 1176 C=t-1 §$ 

1521 1176 C=C-1 $ ALPHA DATA? 

1522 1443 GGNC SPLT30 €1466) NO, USE DEFAULT CHAR 
1523 416 Asc SAVE SPEC CHAR 

1524 1 GOSUE INITSC SEND OUT MODE= SPECIAL CHAF 
1525 0 | 

1526 1334 PT= 13 

1527 6z6 Lc 6 

1530 256 AC E ACSo=6 FOR ACSPCC, C= SPEC CHAR 
15314 1 GOSUB aAcsPcc SEND QUT SPECIAL SHAR 
1532 a 

1523 RPLT65 1270 C=REGN 10 GET VW¥V-3 

1534 74 CR 

{83H i26 C=0 S55 

136 406 A=C x A= ¥Y¥Y=3 

{537 460 LDI 

1546 7 COW ? 


1541 S06 AFAtC Am WYN + 4 





RPLT?O 


RPECHK 


om 
aor-ho- HWSO “0 = 0 —~ 


GI an 


4s 
Qo 


fis oO = 


SARS IRE PE 


G=REGN 


9 
“4 
a 
RPLT?7?O. ¢1562) 


INITSC 
PRIMNSG 
@567 

x 
SKPCOM 
0 
INITSM 


RPECHK 
EOLR 


; PECHK 


C=AAR- 1 | 

A= AAA-1, C= VV¥44 

ANA-1 < VVYV44? 

YES 

NG, C= AAA-VVV¥-5= SKIP 
A= #RCOL 

A= NEW #RCOL= #RCOL-SKIP 
SUBTRACT 1 COL FOR AKIS 
B= NEW #RCOL 

SKPCOL 


SEND GUT MODE= SPEC CHAR 


AXIS LINE 
C= # REMAINING COLUMNS 
SKPCOL 


GET OLIT GF COLUMN MODE 


SEND RIGHT END OF LINE 


CHECK FOR ERRORS 


# 


wt - ‘ 
1001 1574 GTSTK 70 C=0ATA 
1006 1575 256 BC EX B= Y VALUE 
100% 1576 170 C=REGN 1 
10072 1577 530 msc “Ms Y MIN 
100% 1600 270 C=REGN 2 
f0de 1601 416 A=C H= Y MAX 
:q07 1602 370 C=REGN 3 C= NNN.AAR 
1008 1603 1740 RTN 


« 
pr RE OM RC RE AC NE i Mc Re ISN 2s de SE of Se ad ft de Se ot oft eee 4 tS TRO ORO RIO ak OR RO Hn dO CR Ae #E 
#~GETVAL= GET VALUES 
* 
*-G=ETS Y MIN, Y MAN, NNN. AAA FROM USER REGS 0-3 FOR REGPLT, OR FROM 
* STK M-Z FOR STKPLT. | 
“-Aleo GETS Y VALUE FROM % FOR REGPLT, GR FROM T FOR STKPLT 
* 
*-USES! A,&,C,N, NO PT, $4, Hd SUB LEVELS 
*-INPUTS: $4=1 FOR STKPLT, $4=0 FOR REGPLT 
*-GUIPUTS: A= ¥ MAK, B= ¥ VALUE, C= NNN.AAA, M= Y MIN, 
CHIP 0 ENABLED, HEXMODE 
* 
tore ENTRY - GETVAL 
(023 1604 GET¥AL 106 C=6 x 
1024 1605 1160 DADD=C 
1025 1666 4940 SETHEX ; 
1026 1607 114 7S4=1 . STKELT? 
1027 1610 1647 GOC GTSTK ¢€1574) YES 
fo28 1611 _ 1570 C=REGN 13 NO 
1025 1612 74 RCR 3 GET USER SEG t POINTER 
1030 1612. 416 A=C A= POINTER 
1031 1614 «1160 DADD=C 
1032 1615 70 C=DATA GET Y MIN 
1032 1616 S30 m=c M= Y MIN 
ta34 1617 256 AC EX C= POINTER 
1035 1626 1056 C=C+! 
(O36 1621 416 A=c 
1037 1622 1160 DADD=C 
1038 1623. 70 C=DATA GET Y MAY 
10329 1624 256 AC EX A= ¥ MAN 
104% 1625 1056 C=C+1 
IN4} 1626 1160 DaADD=C 
1042 1627 70 C=DATA GET NNH.AAA 
(04= 1630 256 BC EX B= NNN.AAR 
042 1631 116 C=O 
104% 1632 1160 DADD=C 
1064 1633 370 C=REGN 3 C= VALUE 
1047 1634 356 BC EX C= NNN.AAA, B= ¥ VALUE 
10428 1635 1740 RTN 


SURI OI OIOICIOROIORORCICECROIGR ICICI EIGER OCC HOE ICH feo Skok sid iO iC tea iO i CRC ede ee de to 


HFFIST - NON-PRINTING FCN TEST 

NOH-FRINTING FUNCTIONS ARE: FRA AV4E 
PRBUF AY4+A 

ADY SF 

RTwPS TO P+! IF FC 18 QNE OF THE ABOVE 

RTHWE TO Fee IF FC 13 NOT ONE GF THE AROVE 

WSES: C, AS:G, FT 

IN: M3:5=FC, LEFT JUSTIFIED 


XEXRARAA FE HR 


+ RA apelin eet NR IE itt Ee ee 








i 
f 


eT SES ARE) SEL el ME geet 


f 
* GUT: NOTHING 
* ASSUMES: NOTHING 


* é 
1062 | ENTRY NPFTST 
(06% 1436 HPFTST 630 C=M 
1064 1637 274 RCR S 
1065 1440 34 PT= 3 INPUT FC TO A3:6 
1066 1641 412 Aa=c WPT 
1067 1642 1220 LC 10 
1068 1643 720 LC ? 
1069 1644 420 LC 4 | 
1070 1645 1220 LC 10 A74A=FC FOR PRBUF 
1071 1646 34 PT= 3 
i072 1647 1552 7 AHC WPT FO#PRBUF? 
1075 1656 1640 RTN NC 2 
1074 1651 1152 C=C-1 WPT 
- 1075 1652 1152 C=C-1 WPT A743=FC FOR PRA 
(076 1653 1552 ? AHC WPT FCRPRA? 
bor? 1654 1640 RTN NC 
1075 1655 112 C=9¢ WPT 
1079 1656 | 1020 LC 8 
106G 1657 143 GOTO ~ NPFTSC ¢1673) 
* 
NOIOIORICROI IIR IA OIOIOICHCIOI NOIOIOROROI IOI IOI CHOI GIOIICICH ROK OIC AICI HOR ORO RCH HOA HEAR Ou AO HE cae HE He 
* DON’T EVER CHANGE THE FOLLOWING “FILLTO @1637" fTittrbretys 6 
fit OR MR Me a Re Me Ne ie Oe Ale he ee 2 2 OE SR 2h A 2 AE Sas 2s Ht he 40 ft SE OR a iO a A a OR 
1035 FILLTO @tés7 
ok 
1087 1660 205 CGN @205 E 
. 1035 1661 62 CON &@62 2 
a 1039 16482 40 CON a4 0 
= 1096 1663 22 CON @22 R 
=A 1091 1664 5 COW @o5 E 
= 1092 1465 24 CON G24 T 
= 1093 1666 © 16 CON @16 N 
= 1094 1667 11 CON G11 I 
z 1095 1670 22 CON (@22 R 
F 61096 1671 20 CON @20 P 
2 1097 1672 55 CaN @55 - 
= 1035 PHEAD ENTRY PHEAD 6288 
i 10395 1673 HPFTSC 1720 LC 15 SF=FC FOR ADY 
i 1160 1674 34 PT= 3 | 
‘ 1401 1675 1552 7? AC WPT | FC#ALY? 
i 1102 1676 t€é40 RTN NC 
\ 1103 1677 1 GOLONG RTNP+2 
1104 1700 2 
™ 
a" OMe Re eM Ne Se 24 4 af Re ee Nk IO SEC SHOR EE HOR RE REC FI CK aC Ne MK Ce SHOE NE ACC HE oe CH 
* FMT - FORMAT FUNCTION Ht 


5 fe ate Seo 2 2h he a he 2 OR NE i OR iE RIO He OR RC OR HOH CIHR HC CR HC 
* 


114% ENTRY FMT 

ifie tal 24 COHN G@ez4 1 

11493 141762 15 cCUN 15 M 

1412 1763 6 Odin whe F 

1413 9704 EMT 460 LOI 

'tie 1765 <00 CON @30a0g SEND FORMAT COMMAND 
1115 1766 $06 R=C¢ * 

tlie 70? 1 GCOLONG ACTHERX 

THis 1710 = 


LE? 
* 


ROR oft ade of oR FR i A RR SEHR OR IRRITATION ORO RO OO OR POR OR 


FC TO C 
SEND FC FPROMPT TO PRINTER 


COUNT THE BLANK 


eM FRC REC 0 Re Rh RCE RCE CEE ROE OIC HOR CHOI ORC ACE ACEC CHCA ACA CARE ACA HE AR AA ARH 


WILL SEND AN EQLR GR EQLL AND 


THE PIL PRINTER WILL NOT USE EGLR OR EGLL AS A DELIMINATOR ANY NORE, 


IF NOT THE SANE WE 
THER SEND 


NO ADDITIONAL SUB LEYELS 


DON’T PRINT IF FLAG SS=0 “FLAG SS= PRINTER EXISTAN 


17543 


€174029 


C1740 


C1733) 


BLANK 

GET LAST STATUS 2ND BYTE 
TEGQL = 1 ? 

YES, LAST EDL WAS A EGR 
EULR 

WRITE DATA CONTROL BITS 


SEND EOLR OR EOLL 
READY FOR NEXT FRAKE ? 
YES 

TINE OUT 7 


NOT YET 


SEND "CR" 


CR COMES SACK YET ? 
"EF it 
YET ? 


YES, SEND 
TIME OUT 
HOT YET 


1fZu ENTRY BPROMT 
#21 ENTRY 6&FROM 
1122 ENTRY BPROM! 
11233 1711 BPRONT 246 AC EX Xk 
1124 i712 BFRON! 1 GGSUB PPROM! 
1124 1713 0 
1125 1714 BPROM 16076 C=C+! = §S 
“ . 
*BPROM FALLS INTO PBLANK HERE, 
* 
ELSE 
* ZOLR - SEND AN EGQLR USING CPBYTE 
{132 
* EOLL - SEND AN EGLL USING CPBYTE 
11is4 
= 
* INSTZAD EGLR & EQLL WILL BE HWSED AS PRINT MODE CONTROLL. 
* BOTH EOLR & EGOLL WILL CHECK WHAT IS LAST EOL, 
* WAHT TO SEND THIS TIME, 
* CRELF. 
* PBLANK - SEND A BLANK USING CPBYTE 
* 
wmeehit USE: CCK),N, NO PT, NO STS, 
##*PRINT IF FLAG SS=1, 
1144 
1145 ENTRY PBLANK 
114% 41715 PBLANK 466 LDI 
1147 +716 40 CON a40 
1148 1717 353 GOTO EQLR10 
114¢ ENTRY EOGLR 
1150 ENTRY EGLCR 
1151 1720 EOLR 644 C=HPIL 6 
1153 1721 672 
115% 1722 6 U3 
1452 1723 1474 RCR 1 
1/83 1724 rré& C=C+C § 
19454 1725 13” GUC EQLCR 
1155 1726 466 LDI 
1156 i172? 2350 CON @350 
1157 1730 EOLMCH 144 HPL=CH } 
1183 1733 5 CH= O61 
1153 1i7s2 1200 HPIL=C 2 
7€2 1°33 EOLM10 354 ORAY? 
116% 1734 $7 GOCc ECLCR 
Yt62 1735 1046 C=C+1 & 
1443 1736 1753 GOHC EOLM! 0 
1164 1737 EGLER 1740 RTN 
LTEGIIES 1740 EOLCR 144 HPL=CH 1 
1146 1741 S CH= wO04 
1/67 17°42 “44 HPL=CH 2 
1423 1743 65 CH= @ts 
1167 1744 106 C=0 4 
i170 1745 WATCR “354 ORAV? 
1473 746 47 £6C EOL 
1172 174? 146 C=C+! * 
+173 1758 1753 GONHC WATCR 


74 F751 1463 GOTO EQLER ¢173r> TRANSMIT ERROR 


11 
1175 1752 EOL 460 LDI 
1176 1753 12 CON @12 LOAD "LF" 
1177 1754 EOLRtO 1 GOLONG CPBYTE SEND IT 
117? 1755 2 | | 
1179 
ANd ENTRY ECLL 
GVAANGO 1756 EOLL 644 C=HPIL 6 
4480 1757 672 
1166 1760 603 
118% 1761 1466 C=C-1 X38 | | 
1162 1762 4646 C=C+t xX TALKING TO T.¥. ? | 
1163 1763 1557 Goc ECLCR ¢€1740) YES, SUPRESS EOQLL 
1164 1764 (1146 C#C-1 x : 
1125 1765 1474 RCR 1 4 
1126 1766 776 C=C#C SS TEGL = G 7 ; a : 
1187 1767 1513 GONC EGLCR ¢1740) YES, LAST ECL WAS AN EGLL 
1188 1770 460 IDI | 
1169 1771 240 CON @346 EQLL 
1190 1772 1263 GOTO EGLNCH ¢1726) 
* , 
2¥ Ae Ae he ot of ake eh eR ACEC Hefei ode ofc of fd ade ode ake ck is ds ke Ft oe oe he ok ae ee ee oe oe wee de od a re ott 
* 
* HXBTXP - GET NEXT BYTE, USING S6 TO DECIDE RON/RAM 
* USES: C, AS:0, AND | ADDITIONAL SUBROUTINE LEVEL 
* IN: 83: 0=ADDRESS 
* S6=1— FOR ROM, S6=0 FOR RAM 
ok PT=3 ! 
* OUT: AZ:0 INCREMENTED TO NEXT BYTE ADDRESS 
a C1:G5NEXT BYTE 
| * ASSUMES: HEXMODE, ANY DATA STORAGE CHIP ENABLED 
ue 
12603 3 ENTRY NXBTXP 
1204 1773 HXBTXP 514 73621 ROM? 
1205 1774 | 1 GOLNC NXBYTA NO 
1205 1775 2 | 
1206 1776 1 GOLONG NNBYTO YES 
1206 1777 2 | 
1207 . 
* 
1204 | UNLIST 
1212 END 


ERRORS ; v 





SYMBOI. 


RAR OOS 
RAACIO 
RAACEHS 
ACREGC 
RACXSUE 
ALPD45 
ALPDSD 
ALPDSS 
ALPDAT 
BPRON 
BPROM] 
BPROMT 
DATR&E 
DATAEP 
DATARS 
DATPIS 
DATPI? 
DATPZ6 
DATPZ5 
DATP20 
DFOSJ 
DFIO 
DE1s 
DF26 
65200 
DFZO6G6 
DF4it 
DF400 
DF4+10 
DF4A14 
DFSs1s 
OF 426 
DF4a4d 
DFS8 
DFED 
DFO 
OFsd0 
OFso0T 
DESUGX 
DFSUuoYv 
DFSO0L 
BFSSS 
DF3ai0 
&OL 
EGLER 
EQLER 
=OLL 
EOLMIO 
EGLMCH 
EOLR 
SOLRIQ 
FMT 
GETNME: 
GET¥AaL 
GTSTK 
PRIS 


1410 1353 


1355 
1362 
314 


342 
351 
337 
$21 


67 


77S 


1074 


1012 


1000 


73i 


1734 1725 


eee 


oy ett pa a pm 


PTieogers Tie 


Sow oe 
1 


HPFIST t63¢€ = 

NABTXP 1773 = 
~ HXINEO 460 = 456 
| NAINTS 201 = 473 478 
} HIND 304 = 476 
HAINGG 93 U - S21 
HAIN7G 546 - 950 
NATHES S5& = vo3 
. H&INGG 961 = 995 O51 
” HINGES 574 - uo? 
NSXTINDS 614 = 612 
HXINST 450 = 
QUTRGS 264 = 261 


PSEE Ge RET ae: 


AEE RET 


OR 2S Be eres c 


SATA TS Romer aren unin orate pagel owe tose gees 


OVERFL 32 =- ; 
PBLANK 1735  - 
 POIGIO 345 - 362 H 
[| PDIG25 405 - 446 “ 
| PDIG3@ 417 -~ 403 
PDIGdS 442 - 437 
PDIGS& 444 +- 432 
PDIGAR 360 - 326 
POIGAC 356 - 284 
| PDIGE 1130 = 
P POIGKS 415 - 411 
| PHEAD 16735 - 
| PRaUOT 352 - 
| PRTIDEF 415 - 
f PRTM 31300 = 
& PRIMS1 1 0 6 
f PRIMSG i 31 24 16 


Ie PRTPISL 7 

PYIEW 265 + 

i; PVT 311 - 274 

Fe REGPLT 1157 - 

Te kcorto 132 ~- 136 

He RGOF 13 i 131 

He RGOPI7 86942 - 145 

fi, RGOF19S 144 #- 142 

Me RGIP20 #154 - 152 141 
FE RGOP24 162 ~- 142 

Hi RGOP26 165 - 202 

Be RGOP2? 168 - 173 

hh RGOP265 174 - 167 

| RGOP29 202 - 155 

Po RGOPZO 205 ~ {71 164 
RGIP32 22m - 224 
RGOFZS 223 - 217 
RG9P3¢ 226 - 222 
RGDP25 227 - 211 207 204 
RGOP4i@ 255 - 251 
RGSF4> 257 - 245 
RGOP45 260 - 256 254 
RGOFSQ0 262 - 243 
RPECHK 1570 - 

RFLTCG 1162 - 1147 
RFLTZG 1233 - $231 1221 
RPLTZO 1324 - 1322 
RPLT4G 1340 - 1334 
RPLT4E 1374 - 1347 
RPLTEe 1443 - 13735 1364 1357 1337 





i ni i BM 6 WG gl cde : 


a een 


5 M4 —ae = 


sg 


KFLTS2 
RF LT36 
RFLTEY 
RFUT6! 
RFLTS62 
RFLTéS 
RFLT70 
RPLT?S 
REL TSU 
RFLTOE 
RFLTER 
SPLTSO 
STKPLT 
WATCR 

Y<MNING 


1424 
1475 
1502 
1504 
150e 
15323 
1562 
1442: 
1457 
1201 
1273 
1466. 
1144 
1745 
1222 


1422 
1432 
1477 
1d4} 


1474 
1545 
1436 
1455 
t2r3 
1310 
1Sz2 


1465 


1254 1204 1177 


1507 


ACREGC 
ACKXSUR 
BPROM 
| BPROM] 
= BPROMT 
 DATAGF 
- DATAGP 
 DATAPR 
DATP25 
DATPZ6 
i DFIO0 
. DFSO5 
! EOLCR 
© EOLL 
EOLR 
Fat 
GETYAL 
HPFIST 
. HXBTXP 
NXINST 
OVERFL 
 PBLANK 
PDIGAB 
PDIGAC 
PDIGE 
PHEAD 
FRQUOT 
PRIDEF 
PRIM 
PRIASE 
PRTMSI. 
PYIEW 
= REGPLT 
| RPECHK 
= STKPLT 


Sr a leer a 
smeetihe Spee me erlip GN Se hi once “ka Res, 






SRE an age See 


ves netic 


" 


meee 
Sega 


isi 


Temkin eo 


Wa i | 
wd ail 





a: 
§: 
ah 
2. 
-# 
f 
1 
ib 


4 
a 
; 
ef 
iw 
i: 


SEES L TTT TTI 


wee SIE. 


sack: 


ee 


RL ae ty alo 


\ 


| 
i 
4 





SE Syste 


1 


wee 


ENTRY YAGLE 


F 
“ 
eB 


316 
345 
L714 
#712 
#711 
(622 
"696 
: 4j 
10? 
104 
tory 
1114 
t740 
"756 
1726 
1704 
1604 
163€ 
1773 
450 
: 32 
L71s 
‘360 
356 
113 
1673 
“352 
“415 
313 
0 

i7 
265 
115? 
1570 
1144 


EXTERNAL REFERENCES 


A-C 
a-Cc 
ACCHRK 
ACCHRA 
acKe 
ACKE 
ACREGL 
ACREGCT 
ACSPCC 
ACSPLC 
ACKSUS 
ACKSUSB 
CKANGI. 
CKANGL. 
CKEN 
CKEN 
CKTRCE 
CKTRCE 
CLHRESS 
CLR2USS 
CON¥SC 
CORY SC 
CPBYTE 
CPBYTE 
CPFKB 
CPFKB 
DETP25 
DRTP25 
DATPIH 
DATPZ0 
DF460 
DF 4 Go 
DFS3S 
DFeSG5 
BYV2-to 
bV2-19 
EOLL 
&OLL 
E.OLR 
EOLR 
ERREE 
ERRGDE 
ERRFR 
ERRFR 
FILLIW 
FILLIN 
FILL 
FILLNE 
FLINKA 
FLIWK? 
FHDETR 
rHDS TR 
FNSTS 
rHuSTS 
7“ORMAT 
FORMAT 


1174 
1397S 


“1707 


1719 
1166 
116 
302 
303 
1531 
1532 
36 
3¢ 
3429 
344 
26/7 
2796 
466 
467 
324 
5925 
1265 
12668 
2 

3 
7350 
7st 
“703 
~# 04 
1107 


1214 1226 1261 
{215 1227 1262 


1771 L29t 1237 
1172 3212 1249 


379 
S71 
1401 
1462 


27 354 1754. 


38 355 1755 


1006 1103 

1007 1104 

1046 1105 

1044 1106 

564 1010 i570 
565 1011 1571 
471 644 

42 645 


a Lk mene a ae eee bat 
1 f 


| 


mn 
i” 
Ei 
' 
a 








i 
| 
I 
1, 
x, 
: 
i 


: 
a 
\e 


Shere betes ec 


Cagt i TNT ea tia 


Roeser 


ahr lr paging! Soo Ta 






a it fle 


‘wegiaid Whit | 


ae Stas 


ST PRA a ca RETR A! te Sade La SE 


sg i. 
FRI s 
ah 





as tpterrayzee we rain, semen ae ang 
che? fiom Genes aot 


a7 Bia raed gest Pa AN Bs 


GETLIN 
GETLIN 
GETPC 
GETPC 
GETPCA 
GETPCA 
GETVAL 
GETVAL 
GLINE# 
GLINE# 
IACKR 
IACHR 
IAUNA 
IAUNA 
INCADS 
INCADS 
INITS 
INITS 
INITC 
INITC 
INITSC 
INITSC 
INITSM 
INITSM 
INTCAL 
INTCAL 
INTFRC 
INTFRC 
LBLOK 
LBLCOK 
LDDPID 
LDDS TO 
LIWELS 
LINELS 
LOADS 
LOADS 
HFRPU 
NFRPU 
NOPRT 
NOPRT 
HPFIST 
HPFIST 
NHABYTA 
HABYTA 
HKXBYTO 
HXBYTO 
OVFLIO 
OVFEFLED 
PADI +h 
PADI+A 
PRREG 
PAREG 
PEL AN 
PBLANK 
PBYTDU 
PBYTOU 
PBYTECD 
FSYTEC 
PDOIGE 
PDIGE 


1054 
1055 
1022 
1023 
S04 
508 
1162 
1162 
544 
545 
1144 
1145 
32 
34 
1025 
1026 
1135 
114 
275 
276 
1444 
1445 
146? 
1470 
1314 
1315 
1251 
1252 
537 
540 
142 
Va7 
1062 


1064 
«126. 


127 
*67 
710 
614 


615 - 


74a 
745 
1027 
19030 
1776 
tere 
1300 
1308 
rru 
¢?t 
7U 


ito 


1102 


345 
34% 
370 
Sf} 
rot 
702 


1050 
1051 


1206 
1207 


1157 
1169 
54 
35 


732 
733 
531 
532 
1524 
1525 
1566 
1567 
1371 
1372 
1344 
1345 


212 
213 


+001 
1002 
1774 


1775 


734 
725 


are 


tf — INI 
aS oy on 


No~™W GJ] Gl 


OR Re 5 


“ih Si 8 


1222 
1223 


1004 
1005 


1555 
1556 


1234 
1235 


1013 
1014 


$340 
1341. 


1350 
1351 


FECHK 
PECHK 
PEDIAG 
PEDIAG 
FFCMST 
FPGOMST 
FFGS35 
FPGSSS 
FPESNL 
PFGSNL 
PPROMI 
PPROM! 
FRE GRT 
PRIGRT 
FRAUOT 
FROAUOT 
FRTDEF 
PRTDEF 
FRINSE 
FRIMNSG 
PUTPLD 
PUTPCbD 
PUTPCF 
PUTPCF 
PURTIT 
PUWAIT 
RFECHK 
RFECHK 
*STSEN 
RSTSEA 
RTNF+2 
RTNRF +2 
KUHING 
SUNING 
SKPC4 
SKPL4 
SKPCOM 
SKPCOM 
SKPLIWN 
SKPLIH 
UNL 
UNL 


End of VASM assembly 
ve oe Sf fe fe ote fe Ne te Mc ae sfc fe ce fe is te te 2 aft it ote fe oe fe NeNOOIOE HE HOH OR ROR NC Hie aR Ob i RO EC CR ECE HR He He oe 


REY, 


1S7z 
1573 
111 
112 
62 
64 
1O3e 
1037 
562 
565 
1732 
1713 
307 
310 
35t 
331 
79 
76 
vc 
109 
“Bi2 
513 
60E 
603 
14 
15 
304 
305 
107 
119 
t67? 
1709 
464 
$65 
1442 
1442 
1504 
1508 
to5z 
teo2 
105 
106 


572 
573 


1ist 
1132 


7905 
706 


1553 


1354 


477 
360 


YASM RCA ASSEMBLY 


1471 
1472 


604 
605 


FILE 


% 
* ROW JUMP TABLE FOR PPGMST 
* 


So UD Who 


GOTO 
GOTO 
GoTo 
GO 
GOTS 
Goto 
GOTO 


{55 


$560 


631A 


a 
Cs 
Uv 
fol 
m 


- PROWO 


PRQW 1 
PROWS 
FROWS 
PRIWId-S 
PRU4-s 
PRIi4-S 


Bo a amar T 
oe f eae 


tee cae vat bl 





ieee aca ak ene re 


wien ar tg hh ip Es hE th Pa Ne = 
oe ee er een SS 


BN DIRNBE BIER nsmasra | Wiha See ed ly Ease MEE Fo ea 


in Gk Teen kts ee ET aa 


Dias MT a Eee daoxt ca eae ie a eS 


AAA ARAAA 
G1 GIG) Wha to fo 
fi fe fl Oy wa LT we 


Nt et ee ee 


ta Dimedeie yee 


“ait dete tae 








i 
t- 
: 
Le 
i. 
t 


16 


J 
PM ay ey of 


a 


“AAR TL 


we AD Th On 


at 


CR CET we On 


e. 


PROWG 


PRUOT OD 


PROW t 


PROW2 


» PRU4-8 


PROUWS 


PPS120 


PROWOS 
PROW11 


PROWT2 


PRi3isd 


233 
z23 
413 


he fe 
ho Oe 


fx} rh 
= 1 @ 
iInmem OHO COA AN S$ ON-~O 


Am 
oO 
@b 


320 


1463 


OJ 
— 
NO 


1406 


}. 


a 


tr. 
A sy 
ve 


nN 


3 


Po 
a 


~~ i 
Coto HhNOmOHADN BRI 


in ~J 


—~t 
G3 


GOTB 
GoTo 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOLONG 


LDI 
CON2 
A=A-1 
LEGAL 
GOTG 
GOLONG 


LDI 
CON2 
GOTO 
GOSUB 
GOLGNG 


LDBI 


GOLONG 
PT= 
A=0 

ac EX 
GOSUB 
GOSUB 
BC EX 
AB EX 
GOSUE 
GUSUB 


CST Ex 


PRW4-8 
PRW4-8 
PROW DOS 
PROWI SO 
PROUT 
PROW12 
PRISt4 
PRi3Si4 
PTXROW 


t2 
4 


PPSt20 
PDEROU 


9 
PPS1Z20 
PPRGOMT 


GUTPPS 
9 

PT 

x 
PPROM1 
BPROM 
S 

x 
PRW9S0 
PROWS 


13 
PRWOTS 


12 

x 
PRWI1O 
PRW126 
G 

PT 

x 
PFROM! 
BPROM 
S 
INCAD 


NN TE YT 


€ $2) 
€ . 32) 
€ 32) 
€ 104) 
€ 5S3>d 
¢ 56) 
¢ 643 
€ 643 
15 

¢ 40) 
0 

€ 40) 
1 

€ 1409 
0 

€ 23) 
14 

€ 1455 


PROMPT STRING IN C,F 
OPERAND MINUS OHE 


THIS IS A DIGIT ENTRY ROW 


PROMPT STRING IN G,0@ 


PROMPT STRING IN 3,1 


ACI? _ G 
SAVE THE OPERAND IN &@ 
OUTPUT PROMPT STRING 


ACS = CHAR COUNTER 
C.¥ _ OPERAND 


PROMPT STRING IN 13,8 


IS IT LBLNN 7O0R RON? 
¥ES 


PRINT "GTO " OR "XEQ@ " 
CHAR CTR TO BCS) 
ACQ-Zy= PC, ACSo= CHAR CTF 


SKIP ONE BYTES THREE BYTE Fes 


GET SRD BYTE ¢LBL> 


bt 102 1204 S7= 0 


52 103 743 GOTO PRUGSS ¢ 1779 
£3 104 PROW10 460 LDI 
£4 6105 2560 CONZ 10 8 TEST FOR XECRUM FC 
6S 106 1406 ? A<C Is IT AN KECROM FC % 
£5 107 1 GOLC PXROM YES 
66 1106 3 
6Y 111 460 LDI NO 
63 112 256 CON2 106 14 
69 113 1406 ? ACC Rx IS IT AW KEQ/’GTO IND ? 
76 114 Si? eoc PRUSIG ¢ [453 NO 
*NOTE: FO €10,15)> WILL BE PRINTED AS AN KEG/GTO IND. 
72 $145 1 GOSUB NBYTAB GET OPERAND 
72 116 0 . 
3 ENTRY PRIOIO FOR CPFKB 
74 #117 PRIGIO G46 BC EX XK UPERAND TO "B” 
“5 120 460 LDI 
76 121 320 CON2 13 0 LOAD GTO FC 
7¥ 6122 466 A=C x A= GTO FC 
? 123 306 C=65 x CPERAND TO *cC” 
7y 124 1434 PT= 1 
Go 125 742 C=C+C PT IS IT AN KEQ? 
81 126 23 GONC PR1IG20 ¢ 1303 NG, A GTO 
ba 127 S42 A=At!1 PT YES, "R"= KEG FC 
gz LEGAL 
&4 130 PRIGEO 1 GOSUB PPRONMT FC PROMPT TO PRINTER 
$4 1313 0 
* SUBROUTINE LEVELS RESTRICTED TO 2 HERE FOR CFFKB 
26 132 1 GOSUB BFROM 
26 133 0 
S7 134 436 A=C $ CHAR CTR TO ACS) 
BS 135 366 C=B 4 GPERAND TO "C” 
oc? 136 1730 CST EX C= STATUS BITS, ST= GRPERAHS 
96 37 223 GOTO PRUOSS ¢ 161) 
* 
* NUMERICAL GPERAND 
* ROW 9 
95 140 PROWS 510 $6= 1 S6= 1 GIVES 1 DIGIT OUTPUT 
96 «6141 460 LOI 
97 6142 234 COW 9 12 TEST FOR 1 GR 2 DIGIT GFERAHD 
go 86143 1406 ? AKC &# 1 DIGIT GPERAND *% 
ss 6444 23 GONC PRUS11 ¢ 1469 YES 
* 
* NUMERICAL OPERRND 
* &{3;0] HAS ADDR POINT TO ONE BYTE BEFORE OPERAND 
* IF $671 MEANS 1 DIGIT OPERAND 
* IF §0=0 MEANS 2 DIGITS OPERAND 
* 
1@6 45 PRWG19 364 Sé6= 0 SET FLAG FOR 2 DIGIT GFERAND. 
167 146 PRUD11 246 AC EX & PRINT THE FUNCTICN FIRST 
16 14? 1 GOSUB PPROM! 
146 150 U 
Co 153 1 GOSUB BPROM 
16% 152 0 
419 153 376 BC EX 5& B(S>= CHAR CTR 
114 154 1 GOSUB WNBYTAB AB EX, GET OFERAND 
1473 155 0 


* ENTRY FRUI3G FOR CPFKB 
* USES: A,B,.C,PT,N + 2 SUBROUTINE LEVELS 


sere eis 


satin” gyre 


prea 
trata 


ry 


azane pat TRAY] LE sergeee 


nt yt Sa rgenas re amie bet eta 


eimntegnda 


reeset EAEIDI ey 


Sete erage sees eeerereee ererteersteestpecreerertate niet ete mein paces hin een iehs metre) ie'|) 1° | 17% in 


le 
ryt. 
te 
t 
Pe 





ACS)= CHAR CTR, Ci O0-1).= OPERAND + + + + + + + 


177) 


fo 


2 


14) 


CPFKB 


OUTPPS ¢ 257) 


PQ 
“i 
hS 
“ 


tr 
CO 
“J 
‘ne 


ook INPUT: 
* OUTPUT? # CHARS IN C.M, CHIP 0 ENABLED 
oe ASSUMES: HEXMODE, PT=P 
. 117 ENTRY PRUOSO 
118 56 PRWUGZO 1730 CST EX 
119 157 $214 ?37=1 
i256 666 173 GGNC PRWOZS 
121 ENTRY PRWOS3 
22 61 PRWG33 1204 $7= 0 
12°73 62 1730 CST EX 
124 63 406 AaC x 
1z5 «6164 504 S6= 0 
126 165 1 GOSUE PRTMNSG 
iz6 166 0 
127 1467 111 CON Gti 
126 64706 116 COW @1ié6 
129 #171 104 CON @1 04 
17u «6172 440 CON @440 
131 172 1234 PT= 13 
122 #174 420 LC 4 
122 75 S36 R=AtC S 
124 LEGAL 
125 176 33 GOTS PRWOS6 
{76 386177 PRWU335 1730 CST EX 
137 260 406 A=C x 
178 201 PRWS3S 26 A=0. *S 
139 ©6202 460 LOI 
140 263 146 COW 102 
144 204 1406 7? ACC 
142 265 213 GONE PRW340 
142 206 276 AC EX S 
i¢4d 207 36 A=0 S 
145 210 576 A=At1 S$ 
144 211 7 Si4 756=1 
147 212. z? Gac — PRWISS 
142 213 576 A=At1 5 
149 ENTRY PRWOSS 
120 214 PRUIZS 1036 C=C+A § 
157 215 1374 RCR 13 
152 216 - 346 BC EX X 
162 217 1 GOSUB BINBCD 
i; is3 220 0 
fq? o* RESTRICTED TO 2 SUB LEVELS HERE FOR 
hs £5 e2i 1 GOSUR PHUMEE 
55 222 G 
156 22 306 C=8 s 
157 Zed 1474 RCR 1 
188 225 323 GATTO 
* + ++ + + ACSI= CHAR CTR, 
160 ENTRY PRUS40 
16t 226 SRUSdO 460 LDI 
142 227 164 CON 116 
16% 230 1546 2? RBC XxX 
1$4 0-231 412 GGNC PL 
145 232 1406 ? ACC 
146 233 242 GONC SMABC 
167? 234 460 LDI 
149 235 (60 CON $12 
162 236 1406 2? ACC & 
17u 237 z57 Goc CP ABC 


MOVE OGPERAND TO STATUS BITS 
INDIRECT 7 
NO 


YES, CLEAR IHD BIT OF OPERAND 
"C= OPERAND.STATUS TU "ST" 
OPERAND TG "A" 

TUO DIGIT GPERAND 

PRINT "IND ” 


I 
N 
D 
BLANK 


COUNT ¢ CHARS 


"C"= OPERAND, STATUS TO "ST" 
AC1-0)9 GPERAND 


NUMERICAL GPERAND 7 
NO 
YES, CHAr CTR To C¢s) 


1 DIGIT NUMERICAL CPERAND ? 
YES, LEAVE ACS = 3 
NO,SET ACS3=2 TO GET 2 DIGITS 
FOR CPFKB 

COUNT THE CPERAND CHARS 

CHAR COUNT TO Bt o> 


PRINT GPERAND 


CHAR CTR TO C45) 


ACK = OPERAND 


IS IT A LSTK ? 

YES 

HO. IS IT A SHALL A-E? 
YES ‘ 


CAPITAL A-d? 
YES 


%N RK 





{71 240 15464 7 ARC X Is 17 aA T? 
172 241 243 GONC PY ( 275) YES 
NO, IT IS Z,Y OF & 
174 242 1046 C=C+1 &X COX)= 113 
175 243 706 A=A-C XX ACX)= OFFSET I 
176 244 460 LDI ( 
wy 6445 132 CON @332 2 : | 
176 246 PRW945 646 A=A-1 Xx z 
179 «24? 47 GOC PRUG6O0 ¢€ 253) 
160 256 1146 C=C-t ; 
181 LEGAL 
{82 251 1753 GOTO PRWI45 ¢€ 246) 
163 252 PRW9SO 1106 C=A~C xX 
4&4 253 PRWS60 S76 A=At! S COUNT THE CHAR 
125 LEGAL 
{#6 254 1 GOSUB CPRYTE SEND TGQ PRINTER 
126. 255 0 
1s? ENTRY PFS200 FOR CPFKB 
te8 ENTRY GUTPPS 
129 256 PPS200 276 AC EX & # TCHRRS TO "Cc : 
3G 257 OUTPPS 106 C=0 4 , 
191 260 132 c=0 M 1 
192 261 374 KCR 10 # CHARS TO CCM) : 
"193 262 1160 DADD=C ENABLE CHIP OQ ‘ 
194 263 {740 RTN 3 
195 264 CPABC 460 LOI. : 
196 265 45 COM a45 LOAD OFFSET 
197 266 — 16443 GOTO PRW9SO ¢ 252) 
3 267 SMABC 460 LDI 
139 270 32 CON a@32 LOAD OFFSET 
20% LEGAL 
201 27i 1613 GOTO PRWISO € 252) 
202 272 PL 460 LDI 
20% 273 144 CON Giid L 
204 274 1573 GoTo PRW9I6U ¢€ 2533 
2es 275 PT 460 LOI 
206 276 124 CON @124 T 


207 27? 1543 GOTO PRW960 € 253) 


ROW 1 - INCLUDING DIGIT ENTRY AND AGTO, RKEG 
At2:0} HAS THE FUNCTION CODE. BE3:0] POINTING !$3T BYTE OF 
DIGIT ENTRY STRING, IF ITS A DIGIT ENTRY FC. 


21+ ENTRY  PDEROW 

215 360 POERQW 460 LOI 

2fe 301 3S CON2 i 13 

2iv 302 1406 ? ACC XK IS IT A GIGIT ENTRY FC 
218 303 | 6035 GONC PRotto ¢ 3633 NO, EITHER AGTO OR AKER 
219 304 32 A=0 M YES, CLEAR CHAR COUNTER 
226 J3oS POERGO 460 LDI 

22! 306 32 COH2 1 16 

222 Sur 1406 ? ACC RK IS IT A. DIGIT 7 

22% 310 267 GOQC PDERSQ ¢ 336) YES : 

22% Sit 1546 7 AKC & NO, IS IT A D.P.? 

225 32 ie? Goc PDERIO0 ¢ 3229 NO 

eet 313 $66 LDBI 

227 314 56 CON bS6 ASCII D.PF 

22% S15 2i4q 7Ss=1 D.P. FLAG SET? 

229 316 227 30C PDOERSS ¢ 341) YES, SHO O.F. 


220 317 1146 C=C-1 








231 320 1146 C=C-1t x CCXd= B54= ASCII COMNA 
232 LEGAL 
232 321 203 GOTO PDERSS ¢ 341) 
234 322 PDERI1O 1046 C=C+! x 
225 323 1546 ? AHC IS IT AN EEX ? 
236 324 77 GOC PDER20 ¢ 333) NO 
237 225 ~—C- 1 GOSUB PBLANK YES, BLANK TO PRINTER 
237 326 0 
226 327 572 A=A+i COUNT THE BLANK 
239 230. 466 LDI 
24 333 | 105 CON ° @105 E 
241 332 73 GOTO PDERS5 ¢ 341) 
242 333 PDERZO 466 LDI IT MUST BE A CHS 
242 334 55 COW @55 
244 335 43 GOTO PDERSS ¢ 341) 
245 336 PDERSO 246 AC EX xX 
24% 337 1434 PT= 1 
247 340 320 LC 3 | 
248: 341 PDER5S 572 A=A+i | COUNT THE CHAR 
24% LEGAL | 
250 342 1 GOSUB CPBYTE SEND BYTE TG PRINTER 
250 243 0 
251 x44 1 GOSUB NBYTAB - AB EX, GET NEXT BYTE 
251 345 0 | 
252 246 156 AB EX B= PGM PTR, ACM)= CHAR COUNTER 
253 347 126 C=6 XS | 
254 350 406 Aa=C x A.X _ NEXT BYTE 
255 251 466 LDI 
256 2352 35 CON2 1 13 
25? 353 1434 PT= 1 
252 354 1542 ? ago PT IS THIS BYTE A RoW 1 FC ? 
ape 355 37 GOC PDER3O ¢ 360) NO. 
2bu 256 1406 ? acc x IS IT A DIGIT ENTRY FC ? 
: 261 357 | 1267 GOC PDEROO ¢ 305) YES 
a 262 260 PDERS0 272 AC EX MM # CHAR CTR TQ Cem) 
= 262 361 1 GOLONG ENCPOS ENABLE CHIP o@ 
é 263 262 Z 
284 _ ENTRY PROIISG 
- THE FC FOR "ASN" WILL NOT BE HANDLED VERY WELLIT GP tiritins 
267 263 PRO110 1746 A SL x CONYERT FC FROM 1D TO bo 
262 264 26 A=G “Ss GOR FROM i£ To Eo 
263 265 © 246 AC EX X PRINT "GTO " OR "KEG " 
270 266 1 GOSUB PPROM! 
270 367 0 
271 370 1 GOSUB BPROM 
271 371 0 
272 372 1 GOSUB CPYS6M 
272 373 G 
2°73 374 1 GOSUB NNBTXP 
PS: 337 a 
274 376 172 GOTO PSTRNG ¢ 415) 
275 





CUCIOIO IOI CICERO OIC ICICI OIG IGOR ICICHOCICE IC CICHOE HOR CK HE dCi doi dt rb 


* 

* PSTRNG - PRINT TEXT STRING 

* USES: C. A.3S,AS:G, B.S, N, $9, RND 2 ADDITIGNAL SUBROUTINE LEVELS 
* IN: #3:0 = AORRESS OF BYTE BEFORE FIRST CHARACTER 

* Se=f IF RON ADDRESS, Sé=t IF RAM ADDRESS 


% eee 4 RE FF Fe & HF 


% 


xe eR 


*%*eEe EE FE 


T=3 
O=LENGTH OF STRING 
~S=INCOMING CHAR COUNT 
NOTE C,0+¢A.S MUST BE <= 15 
GUT: C.M=TOTAL CHAR COUNT (C=C. O+A,.S+2) 
RSSUMES: HEXMOOE, S3=PRINTER INTERFACE ERROR FLAG 


2203 


F 
. 


PLBL - PRINT ALPHA LABEL 
USES: C, A.S,AS:0, B.S, N, S35, AND 2 ADDITIONAL SUBRGUTINE LEVELS 
IN: 83:0 = ADPRESS OF 1ST BYTE OF LABEL 
26=1 FOR ROM, S6=0 FOR RAN 
h.S = INCOMING CHARACTER COUNT (MUST BE <= 3) 
OUT; C.M=FIHAL CHAR COUNT. 
ASSUMES: HEKMOODE, S3=PRINTER INTERFACE ERROR FLAG 
29 


SLBILO ~ PRINT ALPHA LABEL WITH ZERO INCOMING CHAR COUNT 
ZPERGES GUT A.S ANC ORGPS INTO PLBL 
3Gi 


OLBL3 - PRIHT ALPHA LABEL WITH ADDR OF SRD BYTE 
Same AS PLBL EXCEPT FOR DIFFERENT INPUT. 


IN: @3:G=ADDRESS OF 3RD BYTE OF LABEL 
S6=1 FOR ROM, S650 FOR RAN 
&.S = INTGQMING CHARACTER COUNT (MUST BE <= ©) 
C.0 = LENSTH OF ALPHA LABEL, NOT COUNTING KEYCODE 
PT=3 
3H9 


PTXROW -- -PRINT TEXT ROU 
Cam= AS-POTRNG EXCEPT USES MORE & TAKES DIFFERENT INPUT 
USER: C, A.S,A3:0, B.S,B3:6, N, Sd, & 1 ADDITIONAL SUB LEVEL 
IN: £3: G=APDRESS CF BYTE BEFORE FIRST CHARACTER 

$10=t1 TOR ROM, S$10=0 FOR RAM 

@. O=LENGTH OF STRING 


319 : ENTRY PTAROW 
32 0 ENTRY PSTRNG 
$21 EHTRY PLBL 
S25 ENTRY PLBLY 
32:3 ENTRY PLBLS 
324 S377 PLBLOA 36 A=0 s INITIALIZE CHAR COUNT 
325 400 PLEL 34 PT= 3 
326 401 1 GOSUB INADSP INC ADDR 
326 402 u 
27 403 { GOSUB NNEBTAP GET 33RD BYTE 
327 404 0 
325 405 PLBLS tf GQSUB INADKP POINT TO KEYCODE 
325 406 U 
32% 407 tide C=C-1 6 DEC LENGTH FOR KEYCODE 
33 LEGAL 
3313 410 S53 GOTO PSTRHG ¢ 415) 
332: 
33 06€U€dd6d1 OF TKROM 6fd6é AC EX 4« STRING LENSTH To C.U 
oe $12 136 C=4a $ INITI@LIZE CHAr COUNT 
332 413 1 GosuB CPYSEM 
es d+i4 Ut 
33E. 


33° 415 PSTRHS 1474 CR 1 STRIHG LENGTH TO £.5 


—n 


ay 


5 oa NE aan 
niga, oi ae Mea gage 


an 


fea ae Ranger rt MIRC mr ee hy TO 
a cat A aki tig She, A ae: aA! 


RA ae Se ee a 


WN wae pees 


mee, 


332 
339 
34 
341 
“342 
342 


344, 


344 
34% 
$45: 
34% 
347 
348 
34° 
34¢ 
350 
351 
332 
352 
353 
354 
355 
39€ 
357 
352 
359 
36 i 
362 
362 
362 


35¢ 
365 
366 
367 
362 
36% 
370 
370 
371 
371 
372 
372 
373 


37h 
37 
37% 
37's 
3Et 
3St 
38. 
33° 
334 
384 
$35 
33Eé 
337 





416 276 AC EX 
417 10636 C=A+4+C 
420 376 BC EX 
421 460 LDI 
422 42 CON 
423 1 &OSUB 
424 G 
425 1 GOSUB 
426 9 
427 34 PT= 
430 676 A=A-1 
431 47 oc 
432 1 GOSUB 
433 6 
434 1672 GOTO | 
435 1 GOSUB 
436 Cf 
437 116 C=0 
440 236 C=B 
444 374 RCR 
442 1072 C=C+1 
343 1072 C=C+1~- 
444 1740 RTH 

: ENTRY 
FUNCTION 
945 PRWUIS5 186 AB EX 
446 216 B=A 
447 1 GOSUE 
$50 0 
451 t GOSUB 
$52 0 
4353 1434 PT= 
$54 1042 C=C+I 
435 123 GONC 
$56 460 LDBI 
457 317 CiaiN2 
460 1 GOSUB 
461 0 
462 1 GOSUB 
463 0 
464 . 1 GOSUEB 
465 0 
466 $123 GOTO 
»FUNCTION COoGE= END ... 
4€7 FPRUIZ2 1730 CST EX 
$70 Si4 7S10=1 
$71 tr? GOC 
472 2ig ?S5=1 
472 153 GQHC 
474 1730 CST EX 

ENTRY 
PR,END 

475 1 GOSUE 
$76 Q 
4°? 36 COOH 
500 105 Can 
501 116 CON 


~ 


S 
S 

S 

@42 
CKANGL 
CPBYTE 


3 
S 


PSTR20 ¢ 435) 


NABT XP 


PSTRIO ¢ 423) 


PRQUDT 


a ot 


PRW120 


INCARD 
NXTBYT 
1 

PT 
PRW122 


12 


PPROM1 
BP ROM 
CPYSEN 


PLBL 


PRWI24 


—PRUT24 


PR END 
PRYMSC 
G56 


#105 
@116 


CODE= ALPHA LBL OR END 


C 


15 


« 


€ 


¢ 


4 6 @ © € 


$67) 


4005 


v10> 


sa I 


A. S=STRING LENGTH 
C.S=CHAR COUNT 


— 
_ 
— 
we 


SAVE FTOTAL CHAR COUNT IN 


QUOTES 


DONE? 
YES 
GET WEST BYTE 


PUT OUT QUOTE 


TOTAL CHAR COUNT Ta 


ADD 2 FOR QUUTES 


+e #8 8 F 8 


Ta nae 


PisM PTR 
& KEEP A 
SKIP LINK BYTE 


LOAD 3RD BYTE 


IS IT LBL ? 
NO, ITS AN END 
FO= LBL 

LOAD LBL FC 
PRINT 


SET THE STATUS 
RRE WE IN ROM 7 


YES, FRORPT 
FIHAL END ? 
NO 

YES, RESTORE 
FOR PRINTING 
PRINT “.END,” 
E 

N 


£9" 


LOPY IN & 


THE FUNCTICN 


“END if 


STATUS 
THE CATALOG 


PORONCROIOIORC IORI HORNA ROAR CHICIC CHOC AURA CAC ACAOHCA 
PRINT PROGRAM STEP 


PRU 24 


104 
456 
116 
34 
320 
17496 
1730 
466 
390 
1 

0 


CON 
Con 
C=G 
PT= 
LC 
RTN 
CST 
L_DI 
CON2 
GOSUB 


EX 


@1o4 
@456 


12 


PPROM1! 


1 GOLONG OUTPPS 


2 


0 


k-SENOS LINE# &ND FROGRAM STEP TO PRINTER 


335 502 
339 503 
39t 564 
391 505 
392 506 
392 50? 
394 510 
395 511 
396 512 
397 513 
397 514 
39% S15 
395 516 

k-PPEMST= 

* 

*-PPGSNL= 

t-SAME AS 

* 

*-USES; 


A,B,C,G,N, 


*-INPUTS: 


Pc= LAST BYTE OF LAST INSTR, 
"ALL" CTRACE), ELSE S7= DON'T CARE 
CHIP 0 ENABLED 


PRINT PROGRAM STEP, 
PPCMST EXCEPT ONLY SENDS LINE NUMBERS FOR LABELS 


PT, 


NO LINE NUMBER 


SO0-3S’, 


REG F= VALID LINE # 


na 
Ro 
tit 
‘aw 


S67) 


# CHAR CTR= 5 
RESTORE STATUS BITS 


PRINT “ENWD" 


TOG OC RO oi RCA FR Ho UAHA RC Ha a 


3 SUB LEVELS 


FFES35 - ENTRY POINT USED BY PRTS IN PROGRAM MODE TO PRINT DATAENTRY 


DATA ENTRY STRING IN MM FORM IN BE3:0) 


CLEAR LINE # FLAG 
RESTORE STATUS 

SET LIHE# FLAG 

GET PROGRAM FOINTER 


GET 18ST BYTE GF PROGRAM STEP 


« S7=1 FOR PGM LISTING IF IN 

e-OUTPUTS: # OF CHARS IN C.M, 

* 

Pg 

Pd 

* STRINGS ONLY. 

* 

* USES A,B,C,G,N,PT, 30-87 

* 

« INPUT: SET S6 CLINE# FLAG) AND SO ¢"ADD BLANK” FLAG > 

* &DDR OF FIRST BYTE OF 

* FIRST BYTE OF DATA ENTRY STRING IN G 

« OUTPUT: ONE LINE TO PRINTER 

* ASSUMES: HEXMODE & PT=P. 

* 
42% ENTRY PPGMRS 
424 ENTRY PPGSNL 
425 ENTRY PPGMST 
426 ENTRY PPGS35 
427% 517 PPGSNL 504 Sé= 0 
426 520 33 GOTO PPGSOS 
4z9 521 PPGMRS 1530 ST=C 
430 522 PPGMST 510 S$é6= 1 
431 523 PPGSOS 1 GOSUB GETPC 
431 524 0 
432 R25 PPGS10 1 Gosue NXTBYT 
432 526 0 
432 527 1434 PT= 
434 530 1352 2 C#O UPT 
435% 531 {743 GONC PPGSIA 
43€ 532 1610 $O= 1 
437 533 1 GOSUB LBLCK 
437 534 0 
43% 535 114 735471 
439 536 313 GONC FPPGS3S 
$4 527 1 GUSUR FNESTS 
44 S4a 0 
44) 541 14 753=1 


NHLLL ? 

YES, SKIP IT 

NO, INITIALIZE "ADO BLANK” FLAG 
CHECK FOR LBL 

Ft= LEL*? 

No 3 . 

YES, GET PRINTER STATUS 

ones? 


meade se ee 


Re ae ee 


ep pet GU a dd ae NAS ae! 


ragtypog 


UE HUMEreia! 


eee 


a ee ee ee ee ee 


Te ee ee ee 





442 


44% 


42 
543 
544 
545 
546 
54? 
550 
553 


352 


333 
354 
999 
556 


b22 
£23 
624 
be 

H26 
527 
6.36 


PPGS30 
PPGS32 


PPGS33 


PPGS34 
PPGS3S 


PPGS3? 


1604 
1166 

204 
1479 


r4z2 


cm 
u 


oo st 
W Us 


zowAoada it tt 
mm 
es me 
=z 


IANO ODOHWIOHn WH 
oO +: 


othe 


OF OOMNonvrosad AB ton 
= 


OF ZO il 
CcCmo i 


a 
wm cr 


oOtrnrpa yv 
no rat aus 
HHOEOA tt 


A 
a 
5 a) 


LOT 
LOW 
C=C+e 
RCR 


GoOTGCc 


EJECT 


PPGS20 


PPGS25 


PPGS32 
PPGS33 


PPGS20 
PPGS34 


S 
ECLL 


ECGLCR 
1 
0 
x 


0 
14 

6 

PT 
PPGS37 
1 


PPGS65 
1S 
BINBDO 


LINELC 


e406 


PPGSe0 
x 
CPRBYTE 


0 


* 
“6S 
1 
U 
2 


@I500 
by 
106 


€ S77?) 


€ 615) 


€ 613) 


LAST LINE= 


NG 
SET ERROR FLAG 
"ALLY MODE 7US 
NO 


RESTORE STATUS 

PRINTING PROGRAM? 

YES 

NGO,BLAWHK LINE BEFGRE LBL 
NORM? 

YES 


LAST LINE. HAD EOLL*? 
NO, ADD EOGLL 


LEL 7? 
NO, ADD BLANK LINE 
SET LINE # FLAG 


CLEAR “ADD BLANK” FLAG 


ENABLE CHIP 8 
CLEAR D.P. FLAG 
GET STATUS REG 


D.FP, FLAG SET? 

NO 

YES, SET D.F. FLAG 
PRINT LINE# 7 

NO 

GET LINE # 

LINE #: BIN TO BCD 


LIHE # TO PRINTER 6 


BLANK 

ADD A BLANK? 

YES 

NG, 000= DIANOND 


SEND DIAMOND TO PRINTER 


GET SRYED FC 
COPY OF FC IH "C" AND "A” 
SET UP PT FOR JUNP TABLE 
SET UP 2 DIGIT @PERAND FLAG 
SAVE FC 


GET ADDR OF JUMP TABLE 


ADDR= Bedndd= 6500 HEX 
Fe RQW= LAST ADDR DIGIT 
TO ROW JUHP TREBLE ¢@64d000> 


=i 
zi 
ae 
= 
ix 
its 
eae 
it a 
hi 
i 
; 
if. 
Lj 
H. 
1 
; 
H 
WwW 
a 
hy 
He 
f 
i 
4 
ia 
# 
ig 
Py 
He 
ih 


LER | BS 


joe 
7e 
{ 
I 


* 


ORATOR OR ROR ORCI IO RCACHOACIICHOHOAI ACI HCE OMORCHCACICHRONCHONC ICAO NCE RCAC CAR ICR CARCI CA RACE NRE NC 


FPROMNT= PRINT A PROMPT STRING FOR A MICROCODE FUNCTION 


LEAYES PT= 2 
LEAVES PT= 2 


$0,555,593 FOR ERRGRS,1 SUB LEVEL 


FC TO C¢X) 


MAIN FUNCTION TABLE 

START FROM Gievoo CCNS) 
LAST @ ADDR DIGITS= FC 
LGAD KADR= XKDEF 


CHANGE XDEF TO KEG ADDR 
INITIALIZE FINAL CHAR FLAG 
INITIALIZE THAR COUNTER 
SAVE KADR IN ALN 
INITIALIZE SPECIAL CHAR FLAG 
GET CHARACTER 
COUNT THE CHAR 
UPPER BITS WSED E&Y MAINFRAME 
SFECIAL CHARACTER? 
€ 6579 NO 
YES, SET SPEC CHAR FLAG (50% 
CLEAR SPECIAL CHAR BIT 
FINAL CHARACTER? 


PRNT4@ ¢ 665) NO 


YES, CLEAR FINAL CHAR BIT 
SET FINAL CHAR FLAG 
€ 666) 


CTR,ADDRESS TO "H”™ 
CHAR TO RY 


LcO FORMAT CHAR TO ascil 


CHAR TO C.K 
SEE IF THE SIana 


fy" 
ms 
a 
= 
— 


RESTORE B.x 
CHAR TO PRINTER 


* 
oe 
* PPROMT ENTRY: AC1:0]=MAINFRANE FC, 
* PPROM! ENTRY: CC1:Q03J=MAINFRAME FC, 
* PPROM2 ENTRY: CCl6:37=KADR 
1 
* ALL ENTRY FOINTS USE: A,C,N, NO PT, 
mt 
*- INPUT: ACO-f>= MAINFRAME FC 
*-OUTPUT: CCS>= # CHARS 
*x @&.M=kKAOR 
*-ASSUMES: NO PUNCTUATICGN IN MAINFRAME FC FROMPTS 
ye 
Soe ENTRY PPROHT 
SUE ENTRY PPROM! 
56% ENTRY PPRON2 
Siu 631 PPROMNT 246 AC EK K 
54/1 632 PPRGM1 1674 RUCR 2 
S12 633 460 LOI 
Sis 634 24 COW G24 
Sies 635 1174 RCR y 
515 €36 19460 CXISA 
Sit 637 34 PT= 3 
537 640 4120 LC 4 
$3 641 674 RCR 41 
519 642 FPROM2 204 SS= 0 
S27G €43 $36 C0 S 
2 644 432 A=C mM 
522 645 FRNT2Z0 1664 SO= 0 
a5 &46 1172 C=C-1 AM 
v.24 té47 1460 CXISA 
525 650 1676 C=C+i §$ 
26 651 tz6 C=0 43S 
527 652 1730 CST EX 
525 633 ai4 ?S6=1 
5239 654 . 33 ONT PRANTSO 
539 655 1056 cec+i 
531 656 304 Sé= a 
532 657 FREMT30 1214 ?7s7=i 
532 640 S33 GONC 
534 642 12b4 S7= 0 
53% 662 1730 CST EX 
ee EOS 210 Sh= 1 
53,060 GF 23 GOTO PRNT4S 
S2e 665 FRMT46 1730 CST EX 
§53¢ £66 FRNT4S 16 N=C 
540 667 $06 R=C x 
<*kDON ‘T HAVE TO CHECK FOR ILLEGAL CHARS IN MAINFRAME FROMPTS 
S42 o7G 1 GosuBe LCoASC 
D422 «6671 a 
S42 672 260 C= 
S42 673 246 act EX a 
S45 674 1 GOSUB CKANGEB 
S45 675 0 
5 4zé. 676 206 B=A “ 
O47 br? 1 GOSUB CPEYTE 
S47 700 0 
S¢& 70) 2i4 ?SS=i 


FINAL CHARACTER? 


fee 


Tam SRB] ee UE ith Se eae ie pe ete te, 2 bye : Z 


a eI aT epee yt) | LUD Dede SS 


Saiary gs eaPB SAEs HOE SNG Tehey Goce ot —plie ap ccengtit v9 pee peeled mec iaikas “inn: CASEIN Aired se be 


be 34% «4702 14623 GONC PRMT20 € 6439 NO, GET NEXT ONE 
Sse 703 1740 RTN YES 
SSi EJECT 





om 


* PXROM - PRINT EXTERNAL ROM FUNCTION PROMPT i 
* . {; 
*-FINOS THE EXECUTION ADDRESS IN ROM, THEN PRINTS: 
“ ~- THE PROMPT= MICROCODE 

* - THE ALPHA LBL= USER LANGUAGE 

* 

*-WSES: A, B, C, NM, PT, $6,S8 2 SUB LEVELS 

*-INPUTS: AC0-1)= 1ST BYTE OF 2 BYTE FC 

B¢0-32= PC POINTING TO !ST BYTE GF FC 

* P SELECTED 

*-OUTPUTS: C.M=CHAR COUNT 

* IF FCN IS IN MICROCODE, THEN XADR IS RETURNED IN A.M 
*-RSSUMES: HEXMODE, S3=PRINTER INTERFACE ERROR FLAG 


Gor 


FPXROM - PRINT PRCIMPT, BUT NOT ARGUMENT, FOR AN XROM FUNCTION 
USES: A, B, C, PT, $8:0, N, AND 2 ADDITICGHAL SUBROUTINE LEVELS : 
IN: C2:0=KROM FC, RIGHT THREE DIGITS 
GUT: C.M=CHAR COUNT 
IF FCN IS IN MICROCODE, THEN XADR IS PRESERVED IN A.M 
67:0 GUT = 1:90 IN 
RSSUMES: HEXMODE, S3=PRINTER INTERFACE ERROR FLAG 
ofS 


*E£ 888 & F 


x . 
®* PXR$O0 - SPECIAL ENTRY POINT FOR CPFKB, WHICH ENTERS UITH Sa=1 50 f 
* THAT, IF THE FCN IS IN MICROCODE, PKROM WILL EXIT WITH A GOLGNG 
* TO PEK20 TO ALLOW CPFKB'TO TACK ON THE ARGUNENT, IF THERE I5 ONE. : 
* CPEKB CAN‘T AFFORG TO CALL PPKROM WITH A GOSUB BECAUSE GF NDT 
*« EHOUGH SUBRGUTINE LEVELS. 
* 
5a ; ENTRY FROM 
So4 ENTRY PPXROM 
ses ENTRY PRO 
Sse 704 FRROM z46 AC EX X 15ST BYTE TO “C" 
537 705. 1574 RCR 12 | 
552 706 160 N=C. SAVE 1ST BYTE 
S$S$5 7067 1 GOSUB NBYTAB GET THE SECOND BYTE 
5S3 719 0 
Sot Pt 406 A=C ¥ 2Nb BYTE TO “R" 
591 712 1630 C=ST 
5492 ts 760 CH EX Nf 0-1 0=STATUS, CC 2-S9=15T BYTE 
50.2 714 1434 PT= 1 : 
594 715 252 AC EX WPT 2ND BYTE TO C¢ 0-12 
595 716 PPXROM 404 So= 0 AYOID EXIT TO PFK26 
595 717 PERIO 1 GOSUB GTRMNAD FINO IT IN THE BON <NO CHIF 69 
596 720 0 
597? 721 163 Cato P¥R19 ¢ 73732 ROM NOT PLUGGED IN 
5595 722 14 753=1 KTYPE=i 7 
S99 722 1S7 coc P¥R20 ¢ 740) YES 
669 724 260 C=N MICRGCODE FCN 
60t 725 1530 $T=c RESTORE SAVED STATUS 
66% 726 256 ac EX KSDR TO C3: 3 
SO" 727 474 ROR 11 “ADR TO C.M 
604 730 1 GOSUB PPROMNZ 
604 731 a 
60% F32 df4 7Sa=1 SPEC EXIT FOR CRFEKE? 
60€ 733 CUTPP« 1 GOLNC OUTPPS NG 
60r 734 2 


- &b7 
6607 
668 
604 

‘ 618 

 6it 

612 

 bt2 

- 613 

614 

. 615 

- 616 

: 617 

618 
61% 

* 6260 

: 623 

| 622 

, 623 

624 
624 

* 


* 335 
°36 


37 
“46 
741 

742 
743 
744 
745 
746 
747 
750 
751 

75zZ 
793 
734 
39 
796 
7S? 
766 


1 
2 


PXRI9 16 
PKRSG 260 
1530 

1 

0 

130 

122 

117 

115 

440 

1516 

73 

1334 

520 

436 

S10 

1 

2 


GOLONG PFK20 


R=0 

C=H 

ST=C 

GOSUB PRIMNSG 
CON @130 
CON @igz 
CON @117 
EON @115 
COW 6449 

7 R#G 

GONC PARZO ¢ £615 
PT= 13 

LC 2 

A=C $ 

S6= 1 


GOLGNG PLBL 


* ROM NOT PLUGGED IN, DISPLAY KOM ID & FC # 


* 
' 625 
629 
° 6S 

63 t! 
633 
632 
. 633 
655 
634 
63% 
635 
636 
637 
632 


761 PXRSIO 232 


762 
763 
764 
765 
766 


“767 
Pru 


r?i 
T.Le2 


oa 


¢?4 
‘70 
??6 


4 

1 

G 
460 
54 

1 

0 
386 
1 

u 
{334 
#20 
1353 


C=e hf 
RCR. 3 
GOSUB PBINBO 
LDI 

CON @54 
GOSUB CPBYTE 
C=B x 
GOSUB PBINBO 
PT= 13 

LC 10 


GTO OUTPPX ¢ 7333 


YES 


SAY NOT FOUND 

RESTORE 

SAVED STATUS 

SEND "KRGOM” TO PRINTER 


x 

R 

0 

M 

— BLANK 

WAS THE FUN FOUND? 
NO 


CHAR COUNT TO A.S 
SAY ROM 


Ci mM d= ROM 16 
ROM ID TG CCK) 
SEND ROM ID TG PRINTER 


ASCII CONMA 

SEHD TO FRINTER 
FUNCTION # TO CX Ad 
FUNCTION # TO PRINTER 


CHAR CTR= 10 CHARS 


HEROIC SE HORONORC CK ORCHESTRA GR CIC CCRC IC ROR Ha Ca CC CRE CR HC CR do 


6401 


EJECT 


Se ROR RONNIE QC TIAGO ICI ICHOR NCAR UROIONE NRO ECHR OR IORI IORI ROR EOC NOR ROR CRC ACEO ORE AH 


Sie NE Re ROR ois ROR iO OK 


644 
645 
64% 
647 
642 
649 

of 
651 
692 
653 
654 


-=- 
i 
wot 


v0? 
1000 
1001 
1002 


1003 LIST 
1004 } 
1005 

1006 | 
1067 1 
1040 

1041 


LIST -- LIST NNH LINES 
HAO UROROROIOR ROROICROROICACIOICICCECHOIGIOICRCRERCHORC HORACIO CICICACOR HOR ROR CE CACRCRCIOICICAOICACACACHCACHCHR AHCI ACHE det I 


224 CON @z24 
23 ON @23 
411 CON @41) 
414 Con 414 

ENTRY LIST 
G NOP 
770 C=REGH 15 
106 C=0 % 
146 C=t-1t & 
750 REGN=C 15 
e46 AC EX & 
463 GOTO LISTN 


Ct GS7 9 


ere] 
a en SESE 


Whe RN ER CO SR ON oa OR oe 


T 
S 

I 

L 

NGP= NON-FROGRAMMABLE 
GET LINE # 

SET LINE # = FFF 
STCRE LINE# = FFF 


# LINES TG "C” 


SNOOP HICH RC RHC IORI HCRCRCAC ORC HENCE NCH HCC HOA ICH ICH CHO OR CACO CR CAA ACEC HR ACHE A a ae ae 


18 ae Oe Be Me Hie ah fe ah Ne MS 2c Se ae 2c ft aft ae 


PRP 


PRINT PROGRAM 


OK NR i ORR ae CE Se CR 


Spot ke RHR ORR Hi hi i RO RE HC id ICAO RR RE He dE ACE oh AE Ae Ae 


53 1012 ez CGN G220 
660 1013 22 CON @2z 
6st 1014 420 CON “420 

*« UPPER BIT IS ARGUMENT TYPE 
662 ENTRY PRP. 
664 ENTRY PRPINHT 
665 1615 FRP 0 NOF. 
66> 1016 1610 SO= 1 
667 1017 PRPINT 1170 C=REGH 9 
66% 1620 530 M=C 
66% 1021 12756 7? C#0 
670 1022 153 GOaNC PRTPIS 
671 1023 1 GOSUB ASRCH 
671 1624 0. 
672 1625 13256 7? C#O 
6f3 1026 FRPERR 1 GOLNC ERRNE 
6r3 1027 2 
674 1030 1114 ?So=1 
67S 1631 1757 Goc PRPERR 
676 1032 304 Sid= 0 
6rr 1033 1014 ?S2=1 
678 1034 133 GONC PRTPIS 
679 4035 310 Sid= 1 
668 1036 143 GOTO PRTPIS 

* 
6S=2 1037 PRTP15S 314 ?S10=1 
68:2 1040 43 GONC PRTP16 
686 1041 1 GOSUB GETPr 
68¢ 1042 Gg 
683 1043 63 GOTO PRTF20 
68s 1044 PRTPIEG 1 GOSUB FLINKP 
68= 1045 0 
687 1046 474 RCR & 
652 1047 PRTIPIS 34 PT= 3 
652 1056 412 A=C WPT 
656 1651 FRTP2O 1 GQSuUBR CPGMHD 
650 1052 u 
69% 1053 1 GOSUB PUTPUCF 
693 1054 tt 
692 1655 ta6 C=0 Ds 
692 {056 $146 C=C-t # 


C1037 9 


€1026> 


C1047 5 


C1047) 


C1044 9 


C1659 


F 
R 
Pp 


NOP SHOWS NON-PROGRAMMABLE 
DON’T RETURN TO FPRPB 
RETRIEVE THE NAME 

SAVE FOR ASRCH 

LABEL PRESENT? 

NG 
YES, 


‘ 
[etna ynipe se pe eee 


GO DO ALPHA SEARCH 


SUCCESS‘ 
ERROR= "“NONEXISTANT” 


MICROCODE? po 
YES, CAN‘’T LIST IT 

CLEAR ROM FLAG 

RON? 
NO, 
YES, 


RAM » 
SET ROM FLAG | 


ROM FLAG? 
No 


YES, GET PGM POINTER 


Sens Betis Sate, enchei inlege AE, 


IN RAM,FIND END OF PCN 


FIND THE TOP OF THE PROGRAM 


STORE NEW FC, SET LINER = FFF 
LoaAb LARGE # OF LINES SO IT 
WON'T STOP UNTIL AN END 





Seach sede faunuepataghe dhe eee oe eee Ee OV e sae 
esate Sill ot ME a, SSE ES, 


em betia 


Ate 


praca Sara ES 


bat a, 


a 
1 
i 
i 
q 
i 
t 
i 
} 
j 
¥ 
j 
i 
i 
t 


694 
695 
696 
697 
693 
699 
704 
Todt 
782 
708 
703 
7 a4 
705 
706 
706 
707 
707 
796 
70% 
via 
7it 
7t2 
713 
714 
7+53 
716 
71? 
718 
718 
719 
72u 
72) 
Tez 
Vas 
(aad 


**¥NOTE 


* 
Ed 





fas 
fav 
Vey 
720 
720 
731 

V3 
v2 
724 
va4 
7a 
7Ze 
73 
728 
729 
fat 
74 

742 
742i 
744 
Fad 
745 


(1657-LISTN 


1060 
{061 
1062 
1063 
1 G64 
1065 
1066 
1067 
1670 
1071 
1072 
1673 
16074 
1075 
1076 
1077 
1109 
1161 
1102 
1103 
1104 
1165 
11966 


1197 
1119 
1411 
1112 
11143 
1114 
1115 
11416 


LISTNB 


PRTP30 


PRTP40 


PRTPSO 


PRTPSS 


1614 
1640 


132 


246 
14 
23 

$1196 

114 

167 


C=PREGH 
C=C-1 
GGC 
REGH=C 


ENTRY 
GOSUB 


BC EX 
?S3a=1 
GONC 
$g= 
734¢=1 
BGC 


: SWITCHING FROM PRINTER 
LEAVE A PARTIAL 


111? 
1420 
4121 
1122 
1123 
1124 
$125 
1126 
1127 
1430 
{131 

1132 
1133 
1134 
1235 
1136 
113/ 
1140 
1141 

1142 
143 
1144 


PR 


+r 


P60 


LISTHB 


1 
M 
4 
{ 
3 
3 
IFRT 


#1651 
elr4 
GLINE# 


EOLL 


1 
PRTP40 €1103> 


15 

3 

” 

OUTPRP C1163>5 
9 


PRTPSO 
FNSTS 


% 


PRTFSS ¢44159 
1 


PRTPAC ¢Ctiv4) 
"ALL" CTRACE > 


RETURN TO PRPE ? 
YES 

NOT IN BARCODE MODE 
CLEAR CHAR COUNTER 


Loab CHAR CTR= 24 
SAVE CTRS IN REG 9 
INITIALIZE FOR EXPLICIT PRINT 


GOSUB @57752 IN TIMER ROM TO 
PRINT THE CURRENT TINE 
CALC & STO LINE#,CK PRIVATE 


CLEAR BUFFER OF NODE BYTE 


1 BLANK LINE BEFORE PACK LISTING 


UPDATE LINE # 

GET # LINES COUNTER 
DONE WITH NNW LINES*? 
YES 

NO, UPDATE # LINES CTR 


GET NEW PRINTER STATUS 


SAVE STATUS IN BCX) 

OUPS? 

NG 

SET ERROR FLAG 

TRACE? 

YES, PRINT PACKED LISTING 
MODE TG NORM OR MAN CAN 


LINE IN THE PRINTER BUFFER. 


C=C+C 
GSUBNC 


3 0) 


Chr fe OF Ce 
hae H 
on 


fy os 


LOI 
C cit 
R=C 
RCR 
R=A-C 
GSUBNC 


GBUSUE 


S 
EGLL 


PWATT 
a 


PRTPL cf1idi>d 
PPGMES 


0 


PRTF6OG C1359 
1 


Ux Ix Sw 


ADY+A 


EctLR 


LAST LINE HAD EOL? 
NO, SEND EGLL 


WAIT FOR THE FRINTER 


BRING GRIG ST BACK TU C.# 

NORM? 

NO,MAN, PRINT LEFT JUSTIFIED 
RESTORE STS,PRT FUNCT WITH LINER. 


JUST PRINTED LBL? 
NO 
YES 


CHAR COUNT TO €.% 
CHAR COUNT>?? 
Nc, PAD WITH BLANKS 


PRINT LINE RIGHT JUSTIFIED 


63 Ut 


SB hap Ps me ee oe at He a 


NAN ANNES 
DOO OD LY to 


1145 
1146 


114? FRTPL 


11590 
1151 
1152 


$153 


1221 
1222 

223 
1224 


1225 


PRTPSO 


QUTPRF 


PRTPAC 


PRPAIS 


FPRPAZU 


FRPA4 CO 


ch 


ont oaon- We 


614 
1640 


zZ 


306 
1530 
1670 
1156 
1650 


432 

SY2 
1670 
1056 
1650 
1170 
1204 
1432 


67 
bra 
1432 
2rd 
132 
43 
a2 
zr2 
tH32 
1150 
21g 


td 
114 
10P 


GOTO 
GOSUB 


GOSUB 


ENTRY 
Gosus 


gc 
Ci 
un 
c 
x 


azag 
uy -1 ZO 
Can i 


CoM os 
ma-< 


Oy «3 
or U3 
cb 
oo 
an 


751124 


RTN HC 
GBOLONG 


REGH=C 


S7= 
BUSUB 


PRTPSG 
PPGNKS 


EQLL 
PRTFSO 
GETPC 


SKPLIN 


SKPLIN SETS S6= 1 


PUTPCL 


PRTP30. 


GUTPRP 
FNSTS 


ECLL © 


PRK10 


* 
14 


14 
PPGSNL 


FRFAR2ZO 
M 
M 
m 
PRPASO 


£1246) NO 


C1243 


a 


£1153> : 
RESTORE 3ST3,PRT FUNCT WITH LINE # 
PRINT LINE LEFT JUSTIFIED | 
GET PROGRAM FOINTER,EN CHIP 0 
MOVE PC TO NEXT LINE 


FOR AH ENG 


STORE PROGRAM POINTER, GET LINE® - 


HIT AN END? 


C1901) NO, CONTINUE 


YES, GET PRINTER STATUS 
PACKED LISTING? 
YES, FINISH PACKED LISTING 


RETURN TO PRPE 7 
YES 


CHECK FOR ERRORS, GULONG HFRPU 


‘RESTORE GRIG STATUS 


CLEAR PRINT FLAG 


COUNT THE CHARS 
SAVE CHAR CTR 
= (€#CHAR +2 BLAHKS) - 1 


SET PRINT FLAG 
GET # REMAINING CHAR FUSITIONS 
CLEAR "JUST FIT” FLAG 
FITS WITH 2 BLANKS? 
C1222) YES, A= C#CHAR + 2 


‘ace papers fk hia melas 


NO 
SCRAF 2 BLANKS CAa= #CHAR - 1] 
FITS W/O 2 BLANKS? 


fa a al A a aT Se as ET | 


YES,MAKE # FOSITIONS LEFT= 6 


A= #CHAR + 2 BLANKS 

"A"= # POS LEFT, "C"= # CHARS 
UPDATE OCHRE COUNT 

STORE IT 

SET PROGRAM LISTING FLAG 
PROGRAM STEP TO PRINTER 


CLEARP LBL FLAG 
JUST PRINTED A LBL? 
YES 


Sac eae des cyst Naess. Rea PiRaaceDi ag Sake Sar tt ae et NN a a ty 


- eee ome wee 


; 
‘ 


GET # POSITIONS LEFT 





795 1234 1170 C=REGN 9 
796 1235 1372 7? C#O OM LAST STEP JUST FIT? 
797 1236 63 GONC PRPASS ¢€1244) YES, NO BLANKS 
792 1237 1 GOSUB PRTNSG NO, SEND 2 BLANKS 
793 4240 G 
729 4241 642 CON Gb42 SKIP 2 CHARACTERS 
800 1242 PRPA4S 1113 GOTO PRTPSO €1153> 
801 1243 FRPAME 410 SE= 1 SET LBL FLAG 
B06 1244 PRPASS 1216 S7= 1 SET "JUST FIT” FLAG 
80% 1245 32 A=G M CLEAR CHARACTER COUNTER 
804 1246 PRPASO { GOSUB EOLL PRINT LEFT JUSTIFIED 
| 804 1247 | 0 | 
i $05 1250 1170 C=REGN 9 GET COUNTERS 
: e0e 4251 132 C=96 NM CLEAR CHAR COUNTER 
z $07 1252 134 FT= 4 LOAD NEW CHAR CTR= 24 
: 80% 1253 120 LC 1 | 
80% 1254 10z0 Le & 
: 810 1255 1150 REGN=C 9 STORE IT 
: 811 1256 1432 2? ACC NO. # CHARACTERS <= 24? 
: B12 1257 1413 GONC PRPA1S €1226) NO, PRINT GN OWN LINE 
‘ 813 1260 1 GOSUB PWAIT WAIT FOR THE PRINTER 
A 813 1261 0 
: 814 1262 1214 7S7=1 LasT STEP JUST FIT? 
4 813 1263 1577 GOC PRPASS €1242) YES, GET NEXT STEP. 
{- 8lé 1264 1 GOLONG PRTPSO NG, IT DIDN‘T FIT AT ALL 
4 816 1265 2 


CPFKB - COUNT OR PRINT FCN FROM KEYBOARD ENTRY 


PRESERVES: M 


YSER: PT, A, B, C, WN, S730, & 2 ADDITIONAL SUBROUTINE LEVELS 


INPUT: MCS:5]3 = 1 OR 2 BYTE FC, LEFT JUSTIFIED 
IF FC IS XROM GR MAINFRAME NON-PROGRAMMABLE. NE4:2] MAY CONTAIN 


AN ARGUMENT 





FLAG 5SS=1 IMPLIES COUNT AND PRINT. FLAGSS=0 IMPLIES COUNT OHLY. 
OUTPUT: C.M=NUMBER OF CHARACTERS IN FCN DESCRIPTION 
ASSUMES: STO ASSUMPTIONS (PTR=P, HEXMOCE, CHIP 0 ENABLED) 
829 _ ENTRY CPFKB 
S30 1266 CPFKER 630 C=N RETRIEVE FC 
@33 1267 1274 RCR 7 1ST BYTE OF FC TO CL1:0) 
S32 1270 126 C=6 xs 
e 832 1271 416 A=C Fo TO ALZ:12) 
i 834 1272 460 LDI 
f 825 1273 315 CON2 12 1Z Cb=FC FOR ALBL FROM PARSE 
; B34 lz74 1546 7? ARC xX FC#ALBL? 
Ss 1275 243 GONC PFKIZ2 ¢1331) ALBL 
832 1276 460 LDI 
839 1277 240 CON2 10 0 LOW END GF XROM FC RANGE 
84h 1300 1406 7 ACC x FC<KROM? 
841 1301 127 GOC PFK10 ¢€1313) YES 
642 1202 460 LOI 
842 1203 250 CGN2 10 a 1 PAST XROM RANGE 
B44 13504 1406 2? ACC X . FOC=XRON? 
84% 1305 63 GOHC PFKIQ ¢13123) NO 
84% 1306 620 C=M xR OM 
847 1367 274 RCR 5 xROM TO CL3:0) 
Bd 1310 416 Sos 1 SET UP FOR FKRIO 
: 84% 1311 1 GOLONG FRR10 
} 


aimee 


sLmezeng met ey 


84¢ 


t3te2 


a 


St 


851 1313 PFKIO 246 
e5t 1314 406 
852 1315 674 
857 1316 £34 
854 1317 120 
855 1320 420 
8546 1321 1460 
857 1222 34 
252 1423 126 
85? 

860 1324 PFKII 674 
86% 1325 1172 
S862 1226 1460 
86% 1327 {246 
864 1230 v77 
86% 

856 PFKI2Z 

86? PFK300 

86% 

* COULD BE ALBL, GTOL, 
87U 1231 1234 
87! 1232 460 
S72 1233 5 
8r3 1234 1546 
874 1335 117 
875 1336 1 
875 1337 0 
876 1340 122 
S77 1341 125 
873 1342 516 
879 1243 320 
880 1344 PFK305 1 
88u 1345 2 
838i 
882 1346 PFK310 460 
8327 1347 1 
88¢ 1350 1546 
885 12351 267 
836 1352 1 
836 1353 0 
88 1254 107 
8ss 1255 1o4 
887 1256 117 
son 1257 40 
391 1266 456 
S92 1361 £30 
39:33 1262 1a74 
844 1263 1046 
895 1264 67 
896 1265 520 
897 1266 436 
894 1367 1046 
S95 1379 227 
9]0 1371 7S3 
gu 
90% 1372 PFKSI5 1 
99% 1373 tl 
907 1274 456 
909 1375 620 


PFK310 ¢€1346) 


PFK320 C137") 


PFK315 C1372 
& 


PFK23/% €1422) 


C=A x 

RCR 11 

PT= 6 

LC 1 

LC 4- 
CKISA 

PT= 3 

LC 1 
ENTRY PFKEI 
RCR 11 
C=C~-1 
CxIsa 

? C#G «& 

GGC PFKI7 
ENTRY PFK2Z00 
AGTGO, AXEQ, 
PT= 13 

LOI 

COW bo) 

7 AKC XK 

BOC. 

GOSUB PRTNSG 
CON @122 
CON @125 
CON @516 
LC 3 
GOLONG QUTPPS 
LDI 

COW { 

? AKC XK 
&6o0c 

GSOSUB PRTMSG 
COW @107 
COW @124 
COW @117 
TON 240 
CON @456 
C= 

RCR 2 
C=C+1 # 

GOC 

Lc ou 

A=C $ 
C=C+1 4 

SOC 

GOTO FFK 45 
GOSUB PRTNSG 
ON @d56 
LC 6 


XEO/GTO IND, 


CONSTRUCT XADR 


USED BY PRROM 
XAOR TG C.N 
CONSTRUCT 4ARDR-1 


CCKAGR-{5=0...N0 FRONPT STRING 
OR ALBL 
GOR R/S FRON PRTSB 


FC FOR R/S 
FC#R/S? 
NOT R/S 


2 aA 


GTOL 
FC#GTOL? 
NOT GTOL 


G 
T 
0 


RETRIEVE SRGUMENT 
GTO..? 

YES 

No, CHAR COuUHT 
GTO,ALFHA? 

YES 

3G (OR 40) #RGUNENT 


GTG.. 


CHAR COUNT 





7 
f 
h, 
fi 





Arie 2 has i SRR Ete ae 


Feuer me ope SEP aie pyrnneak came gpm ative Saeed waving ine anny FN ENCE tt 


father. con gales gumemye gies 2. 


ery 


ee = esaten ey 


on gent. WR nee 
a 


ny 
aot 
A 
weet 
4 
a 
# 
te 
if 
ta 





: 
i 
A 
a 
a 
i 
3. 











i« FOR 


Sar, 
93° 
93e 
93¢ 


* P25 
94%: 
942 
942 
942 
946 
345 
944. 
947 
94 
94% 
95° 
95% 
952 
oc.s 
ong 
Sa> 
935. 
954 


Ba? 


1376 1463 
1377 PFK320 460 
1460 256 
14601 {ads 
1402 57 
1403 630 
1404 27d 
1405 1 
1406 2 
1407 PFK339 460 
1410 B15 
1411 1546 
1412 117 
1413 460 
1414 317 
1415 PFKI34 1 
1416 6 
1417 “4 
1426 0 
1421 436 
1422 PFK337 6223 
1423 FPFK34G 246 
1424 136 
1425 1374 
1426 1672 
1427 PFKI? 1672 
1430 1 
1431 a 
1432 PFK20 436 
1433 272 
1434 1172 
1435 1460 
1426 1266 
£EY Tt PARSE 
1437 1 
t440 2 
1441 i 
14de2 0 
1443 S76 
1444 149606 
1445 766 
1446 756 
1447 786 
1456 13 
1451 504 
14952 23 
1452 PFK34 51a 
1454 PFKES R30 
1455 274 
1458 1 
1457 2 
1440 PFRSS 1172 


GOTO PFK305 
LOI 

COH2 16 

? RRC K 

GOC . PFK3S6 
C=" 

RCR o 


GOLONG PR1010 


LDI 

COW 4 

? ARC & 

BOC PFK340 
1L.DI 

CONZ i2- 


GOSUB PPROMI 


GOSUB BPROM 


A=C 3 

GOTO PFKS2 
AC EX kK 

c= S 

RCR 13 
SOTo PFK 334 
c=C+t 
LEGAL 

GOSUB PPROM2 
ENTRY FFK20 
R=C S 

AC EX M&M 
C=C-{ 
CxXISA 

? C#@ XS 


QPERAND TYPES COPI, 


GOLNC PPS200 


GOSUEB PBLANK 


A=Ati S$ 
CXISA 

C=C+C K#«S 
C=C+C x5 
C=C+C0 XS 
GONC PFRSS 
S6= 0 
BouTo PFK3S 
S6= 4 

C=" 

RCR a 
GOLONG PRWOSEG 
C=t-t &M 


C1is44> 


14 


€1407) 


13 
€1423) 


15 


C1504 9 


C9415) 


OP2) SEE ORC’S 


€1460> 


(14549 


FC=AE=KEUCGTO IND 
FCHHEQPGTO INDY 


KEG/GTO IND 
INDIRECT 2b ARGUMENT 


CO=ALBL 
FC#ALEBL? 


ALBL 
CF=FC FOR LBL WN 


SEND & COUNT BLANK 


CHAR COUNT TO ALS © 


AXEW OR AGTG 
CONSTRUCT FO FOR 
SEQNN OR GTONW 


CONSTRUCT XADR AGAIN 


CHAR COUNT To ALS 
C.M=KADR 
C.M=KADR-1 
GET OF 1 TO C.KS 
OF 1#0°? 
LAB BOOK #8336 


EXIT 
ADD A BLANK 


INC CHAR CGUNT 
RESTORE OPi To C.XS 


OPi BIT 1 SET? 
NO 
SAY 2D ARGUMENT 


1 DIGIT ARGUMENT 
PUT ARG 
IN Cli: 0) 


C.M=XADR-2 


g52 
957 
9év 
96 

962 
9672 
944 
965 
966 
967 
946% 
96% 
976 
971 

972 
or35 
974 
975 
376 
976 
g7% 
97% 
986 
931 

982 
gRea 
OR 
Sa 
985 
IRF 
987 
9a 
987 
996 
991 
99% 
99% 


1461 
1462 
1483 
1464 
1465 


1466 
1467 
1470 
1471 
1472 
1473 
1474 
1475 
i476 
1477 


1560 
1561 


i504 
1585 
1306 
1590? 
1510 
1511 
{Viz 
1543 
1514 
{545 


PFK45 


PFK4?7 


FFKSO 


PFKS2 


PFKSS 


1516 


1517 
1520 
1521 
1522 
1523 
1524 
1525 


1526 
152? 
13539 
1571 

1532 
1533 
1534 
1535 
1536 
1537 
1546 
1541 

1542 


1543 
1244 


PFKS? 


PFK59 


PFK? OQ 


1466 
1166 
217 
1166 
153 


630 
1074 
1334 

329 

256 

460 
1750 
1406 

Zr 

S76 


1166 
1503 


116 
2’6 
374 
432 
1170 
1434 
SV’2 
135 
103 


WamMoera— 


nm ao ~-€ 
“Id 


Jfe 
630 
1274 
1434 
4$t2 
460 
17 


1552 


z72 
1740 


(fs 


x 


A 


Oo oD oH 


] 
C 
C 
c-1 
GONC 

ENTRY 


w# © il 


Cc=M 
RCR 
PT= 
LC 
AC EX 
LOI 
COW 
? acc 
BOC 
R=A+ 1 
LEGAL 


GOLONHG 


C=C-1 
GONC 
ENTR'S 


GOSUB 


C=0 
AC EX 
RCR 
A=C 


C=REGN 


PT= 

A=A+1 
2 CHO 
GONC 
GOSUB 


GOSUB 


C=6 
RCR 
GOTO 


BOSUB 


A=A+1 
CaM 
RCR 
PT= 
A=C 
LDI 
CON 
? AKC 
GONG 
AC Ex 
RTN 


GOSUB 


4S 
PFKS2 
XS 

PFKS0 
PFK45 


C1504) 


€1502) 


w= Nh 
G! 


1¢00 
4 
PFK47 ¢€15003 


—~ 


PRW933 


KS 
PFK34 
PFK5S2 


€1453 3 


PRQUOT 


3 
10 
M 
9 
1 

M 


WPT 
PFK57 
CKANGL 


€1526> 


CPBYTE 

WPT 

2 

PFKSS ¢€15149 
PRGUOT 

M 

? 

1 

WPT 

iS 


WP T 


PFK7O <¢t543> 


PBLANK 


GET UF2 


ALPHR GPERAND 


3D ARGUMENT 
PUT ARG 
TO C.K 
SET A.S=3 TO GET 3D 
FROM BINGBCD 
AND PUT ARG IN A.A 


ARG < 4 DIGITS? 
YES 


No, GUTPUT 4 DIGITS 


ALPHA GPERAND 


MOVE CHAR COUNT TO C.5 

NOW TO C.MN 
AND BACK TC 

GET STRING 


pane 
, ay 


es E5z 


A.M 


son ApEn erereomans 
Tet PA eae 


INC CHAR COUNT 

1S THERE A CHARACTER LEFT? : 
NO 
CHECK ANGEL SIGN 


: 
ZERO OUT THIS CHAR 
ROTATE NEXT CHAR INTO POS 


IN® CHAR COUNT 


FC FOR ASN 
FC#RSN? 


CHAR COUNT To C.N 


ASH 


iz bee ce Ne NS a go On ee ee sis a ae: ate ee mee ee ee eee, 
oD bee runt chews Meee hides at ae Dee es ¢ ei ke ere Santa ee ee ey 


© #- INPUTS: 
| k-HISES: 


*-OUTRUTS : 


me 
pots 
10#4 
1005 
1OfG 
(Or? 
1at? 
1018 


1545 
1546 
1547 
1550 
19551 
1552 
1553 
1554 


372 
620 
274 
1146 
1530 
1 

) 
1653 


A=A+1 
c= 
RCR 
C=C~j 
ST=C 
GOSUB 


OTC 


M 


S 
x 


PRKC 


PFKSS 


C1544 > 


INC CHAK COUNT 


KC TO C1:06 
GET RID OF 
KC TQ $7: 
PRINT KEYCOOE 


OFFSET 


Tea Me AI Rea tot a fe ROR $e eat Mt nie is Of ft ie oe OK HOI OIOIOICIOHG I a teak ar aR to tok ica a a SAE ORS oH A SE RCC AAC RCE TH fC ate Hic ote i ote 


«-PNUNBR= 


* 


NUMBER TO PRINTER 


*-SENDS DIGIT STRING IN ACM) TO PRINTER 


Se ee ea ee 


1950 


PNUME 


AC 3-13), 


BCS), 
ACM>= DIGIT STRING 


Cc, 


N, 


NO PT, 
CLEFT JUSTIFIED) 


“JHE # OF DIGITS IS DETERNINED BY ALS?) 


ACS = # DIGITS TO SEND TO PRINTER 


HEX MODE 


& .- SAME AS 
A.S 


55 PBINBO 
1556 PBINBD 
{557 


“$560 FHUMBS 


1561 PNUMBR 
iS62 

1563 BNBCOS 
1564 
1565 


1566 


1567 
1576 
1571 
1572 


PNUMBR EXCEPT EXPECTS # OF DIGITS 


136 
1 
0 
176 
272 
{374 
676 
1540 
460 
3 
1374 
} 
G 
171s 


ENTRY 
ENTRY 
ENTRY 
ENTRY 
C=0 

GOSUB 


AB EX 
AC EX 
KCR 
A=A-1 
RTH C 
LOI 
CGN 
RCR 
LOSUB 


GOTO 


OUTPUTS: HEX MODE. CHIF 0 ENABLED, 


PNUMBB 
PNUMEBR 
PBINBO 
PBINBD 
3 

BINBDC 


Ch — = 


3 
13 
CPSYTE 


BNBCD3 


€1563> 


NO STs, 1 


SUB: LEVEL 


CIF # DIGITS PRINTED#0O) 


IN 6.S INSTEAD OF 


OUTPUT 2,3, OR 4 DIGITS 


CONYERT TO BCD 


# DIGITS TO ACS) 
DIGITS TO CCM) 

LEFT JUSTIFY DIGITS IN 
COUNT DIGITS, DGNE? 
YES 

NO 

ADD UPPER 4 BITS 

GET NEXT DIGIT 

SEND TO PRINTER. 


Ee 


f FalaiGicoiCO Olio OCC doi Cd doit ok icici date dite decdok dot ui dedcded: detect dedcde dtc dak ok de det ate dah 
: *#-LINELSB= LINE # WITH LEADING BLANKS TO PRINTER 
oe 


/ ot 


10548 
1059 
1059 
196u 
1063 
ide: 
1062 
tass 
i@65 
1065 
165" 


Ci * = 


1573 LINELS 
574 
1575 LINELC 
1576 
1S77 
1606 
1601 
1692 
1663 


AR,BCS5,.C,N, 
HEX MODE, 


1 
G 


1234 
320 
176 

1436 


asl 
o 
Gl—- —~ 


LINE # (BINARY >, 
ACTIVE PT, 
CHIF G ENABLED 


ENTRY 
GOSUB 


ENTRY 
PT= 
Lt 
RE EX 
? ACC 
CSUBC 


GOTO 


LINELB 
BINBDO 


LINELC 
13 


0} OF GI 


PBLANK 


HEXMODE 
NO STS, 
CIF # DIGITS PRINTED 


2 ADDSITIGNAL SUB LEVELS 
# G9 


LINE#: BIN TO BCD 


QUTFUT DIGITS 


A.S= # 
: D LEADING EGLANK*? 
S 


O 
VE 


PHUMER ©1561) LINE # TQ PRINTER 


LOIRE GREGOR RISE AISIIGIOIOIO CRAIG ROICIIOIGCICIOIOI iE CRO dofotor fee tot foi Ed tor tokcdotctot to doe aot & 
r-GCHER= GET CHARACTER ¢ FROM DISPLAY) 

r<_LCCASC= Lob To Ascll 

k 

k—-GCHER GETS & CHARACTER FROM THE DISPLAY AND CONVERTS IT TO ASCII 

t 


K-LISES: ACK),C, NO PT, $0 (SPECIAL CHAR), NO ADDITIONAL SUB LEVELS 
*-INPUTS; CGCHAR]: DISPLAY ENABLED, RAM DISABLED 
« CLCDASCI: ACO-19= LOD FORMAT CHAR WITH NO PUNCTUATION 
« CLOpASTI]: CC12-13) WILL BE PRESERVED C1T 13 GUTFUT AS PUNCTUATION) 
e-OLOPPUTS: ACU-12= ASCII CHARACTER, C¢12-13).= PUNCTUATION ¢=0@ IF NO FUNCT) 
* 
1079 ENTRY GCHAR 
1oEee ENTRY LCDASC 
106: 1604 GCHAR 1664 St= 0 
1082 1605 1770 RABCL FETCH LEFT CHAR FROM DISPLAY 
(us2 1666 766 C=C+C 5S SCRAP GARBAGE BITES 
10s¢ 1607 766 C=C+C XS SCRAF CAREAGE BITS 
tua5 1616 766 C=C+C &S SCRAP GARBAGE BITS 
tose 1611 766 C=C+C XS SPECIAL CHARACTER? 
1087 1612 23 GONC GCHR40 NO 
(ose 1643 1610 $O= 1 YES 
063 1614 GCHR46 466 A=C x CHark TO "A" ¢XS= 09 
1096 1615 460 LDI 
(09: 1616 ig0 CON @160 
toyz 1617 706 #=A-C x ANY FUNCTUATION? 
109% 1620 33 GONC GCHR45 YES 
1094 1621 166 C=0 x HO 
$095 1622 172 GOTO GCHRSO 
1096 1423 GCHR45 706 A=A-C X PER100O? 
1097 1624 77 GaCc GCHR47 YES 
1035 1625 706 R=A-C x NO, COLON? 
1095 16426 107 GOC GCHR48 YES 
1109 1627 460 LDI NO, MUST BE COMMA 
1108 1630 54 CGN @54 aBSCII COMMA 
1102 1631 1674 RCR 2 SAVE PUNCTUATION 
1462 14232 123 GOTO LCDASC 
1104 1633 GCHR47 460 LOI 
1103 1634 56 COW @56 ASCII PERIOD 
t1@E F435 33 GUTO GCUHR43 
1107 1636 GCHR48 460 LDI 
11¢& 14637 72 CCN @72 ASCII COLGN 
1168 1640 GCHR4% 1074 RCR 2 SAVE PUNCTUATIGN 
17190 1641 GCHRSO 460 LDYI 
1111 642 too CON @ioo 
it12 1643 506 A=AtC $3 RESTORE UPPER BITS 
+1413 1644 LCODASC 1614 790=1 SPECIAL CHAR? 
ritd 1645 107 GOC sPcasc YES 
1115 646 450 LOI No 
ilies 647 40 CON G40 
1117 1650 14906 ? aC<C X CHAR < B40 ? 
1118 1651 1640 RTH NC NG 
11919 1652 REGASC 746 C=C+C K YES, CCK32= &106 
112% 1453 S06 A=A+C X ASCII= CHAR + @100 
1121 1654 1740 RIN 
Vizl 1455 SPcase 74 RCR 3 SAVE FUNCTUATION IN Ci 3-10) 
1}23 1656 246 ac EX LCD CHAR TO "Cc" 
1ig4a 1657 1474 RCF 1 Save DIGIT oO DOF CHER 
1125 1660 460 LOI 
lige 1661 {200 COH e300 Logo ADDR= #26006 











es ee 


t 


ft, 


1127 
1125 


1139 
1431 


*« © & 


1€£62 
1663 


1664 
1665 


1666 
1667 
1676 


374 
1460 


406 
1740 


Good 
0006 
oo00 


RCR 
CXISA 


*SPECIAL CHAR TABLE, 


A=C 
RTH 


10 


x 


FILLTG Gté70 


NOP 
HOP 
HOP 


ADDR DIGIT 0= LCD DIGIT G 
GET ASCII EQUIVALENT FROM 
CNi1l, @9 


Co FAIR IOR IO IGE IIORO IOI OI ECICIOIOIOI ICICI IOICIOR ICE IDI RICCI CR OE AOR ICI RO ACK ACTOR CACHE Ark In HCH ft 
- PRINT WHAT‘’S IN THE DISPLAY 


6B89 


TLOD 
USES: ACK&S9,B.%,C,30,8S9,N,ACTIVE PTR, AND +1 SUB LEVEL 


INPUT: CONTENTS OF THE LCD REGISTERS 


Se eRER ERE EER 


BDUTPUT : 
RSSUMES: HEXMODE. 





GNE LINE TO THE PRINTER BUFFER CHO EGL), 


CHIP G ENABLED. 


DOUESN’T CARE WHICH CHIP IS ENABLED. 


NCTE: THIS ENTRY POINT USED BY TIMER ROM TOO. SO DON’T USE ANY’ 
ADDITIONAL CPU REGS: 

1149 CLL9 pRILCD ENTRY PRTLCD 

1120 1671 P1234 pT= 13 

1151 1672 1320 Le if SET UP COUNTER 

1152 1673 436 A=C S IN A.S 

1153 1674 1 GOSUB ENLCD 

1153 1675 G 

1154 1676 -PLCD10 1 GOSUB GCHAR 

1154 1677 0 

1155 1700 246 AC EX x 

1156 1701 1 GOSUB CKANGB 

1156 1702 0 8 

1157 1703 146 AB EX X RESTORE B.X 

i1$2@ 1704 + GOSUB PBYTOU CCX): TG PRINTER 

1152 1705 0 

1159 1706 1434 PT= 1 

1160 1767 1574 RCR 12 

1161 1710 $352 7080 WPT PURCTUATIGN? 

1162 1711 1 GSUEBC PBYTEC YES 

114642 1712 1 : 

11623 1712 676 A=A-1 $ DONE? 

1164 1714 16223 GONC PLCDIO ¢1676) NO 

1425 1715 1 GOLONG ENCP OO 

1145 1716 2 


SOIR ICRC ICICI IGE IOI CIGI OCICS GOR GCE ACE CH aE AOR HGR io: 
*-CLBLCOK= LABEL CHECK 


* . 
*-CHECKS FUNCTION ®O0E FOR LBL. RTNS WITH S4=1 FOR LBL, ELSE S4=0, 
* 
*-USES: A,B,C. G, FT, S4, 2 SUB LEVELS 
7 €-ENPUTS: Ac a-3o= PC, Cc o~-t3= FC 
*-OUTPUTS: S4#=1 FOR LBL, ELSE S4=0. 
* PtH Ty CHIP Q NOT NECESSARILY ENASLED 
RETURNS FC IN G INSTEAD OF Cf1:0] 


RETURNS PC IN 6C3:0) INSTEAD OF ALS: 03 


%* # 


1173 ENTRY LBLCK 
14179 1717 LBLCK 104 S4= 0 
11&0 1720 216 B=A 

118% 1724 126 C=6 xs 
1ikeE 1722 406 A=C a 
11#@2 1723 1634 PT= 9 
11&4 t7?24 136 G=C 

ties $725 1434 PT= 1 
1136 1726 1502 7 AD PT 
1167 172? 2353 GONC LBLCK9 C1754) 
113 1736 460 LDI 

1169 1731 316 COH2 12 14 
1190 1732 1542 7 ARC PT 
119% 1733 1540 RTN C 

Vive 17°34 1346 7 AKC K 
119° 1°35 1640 RTN NC 

1494 1736 1406 2? ACC «# 
1195 1737 153 Gane LBLCOKS ¢€1754) 
1176 1740 34 PT= 3 
11597 1741 152 A=6 WPT 
1i9v? 1742 212 

1195 1743 1 GOSUB INCAD 
live 1744 G 

113793 1745 1 GOSUB INCAD 
ti3S 1746 0 

1206 1747 1 GGSUB GTBYT 
12eu 1750 0 

raut 1751 1434 PT= 1 
1202 1752 1642 C=C+i PT 
1204 1753 1640 RTN NC 

1204 1754 LBLCOKS 110 S4= 1 
1205 1453 1740 RTN 

1296 

12907 


CLEAR "EOLL AFTER LBL" FLAG 
SAYE PC 


Fc To "A" 
SAVE FC IN "G" 


SHORT NUMERIC LBL? 
YES 
NO 


RGW 12 FUNCTION? 

NO 

YES, "KO> NR" ? 

YES, 30 SEND A BLANK 
NO, ALPHA LBL GR END? 
NGO.LONG NUMERIC LBL 
YES 

COPY FC TO “A” 


SKIF SND BYTE 

MOVE TO THIRD BYTE 
GET 32RO BYTE 

ALFHA LBL’? 


NO, I1T°S AN ERD 
SET LBL FLAG 


OUD AOIOICICICIOICICACRCIOCICACICACIORICIORACICACIOIIOICECACKCIOIOIOR ACCHOICICRCHOR HCE HCCHIOCHCACHCACACHCACEC TCH HCH HEHE HCC HCE 


eenmetot PRTZ -~ BEGIN TG KEY IN ALPHA OPERAND 


A HOR ROR i i tC aR a oi abs oot 


BORCICIOIOIOICICIOIGIOI CIE CICIOICIOICI IOI OICHOICIIGGIGICHOR IG CII OG ICE AGE ACR CHOICE HOE rte a 


121% EHTRY ALPHOP 
1212 1756 ALPHOP 1634 PT= G 

12t3 1757 230 C=G 

1214 1760 330 M=C 

1215 1761 1 GOSUB DBATAPR 
1215 1762 0 

1236 1763 &é30 C= 

12t? tret 1634 PT= G 

1213 1765 136 G=Cc 

121% 1766 1 GOLONG PR3RT 
1219 1767 2 


WEES: ALS,AZG:0, 3:6, PT, S6 
IN: C.S=CHAR COUNT 
P3;: G=APDRESS 


*FékRAERR ER SE 


S$td=1 FOR ROM, Sid=@ FOR RAM 
GUT: A.S=CHAR COUNT 

23: VSADDRESS 

2651 FOR ROM, 26=0 FOR RAN 

PT = 3 


SAYE G REG 
PRINT DIGIT ENTRY STRING 


RESTORE G REG 


OECAOCIOICICICROROICICOR ICICIOIICIRICICICICICICCIOICICICICECICECICKCIHCHOICIC GO CICHCE ICCC HCC HC HCCC HCE CR ote a 


CPYSSM - COPY SiG TG S6 & MISCELLANEQUS OTHER STUFF 


enn ml A | 


609 fb NEE et 


= 
a 
= 
3 





| 
assuNES: NOTHING 
a 


1224 ENTRY CPYS6M 
1225 177Q CPYSEM 436 ARC S 

12Ze PPT 34 PT= 3 

1237 1772 152 AB EX WPT 

1238 1773 504 ‘S6= 0 ASSUME RAM 
1239 1774 3i4 7S10=1 . ROM? 

1240 41775 1640 RTN NC RAM 

1241 1776 510 Sé6= 1 SAY ROM 
1242 1777. 1740 RTN 


iQis | UNLIST 
1247 . END 





PA ts 


i 
Beciigie eB Os TRS LEER GER PEs oe PR 


ERRORS :_ 6 





+% 
ot 
ee 
Ly) 
as 
e 
8 
-* 
% 
z= 
= 
= 
& 
x 
= 


TSP eae tli aba cd hayes 


eer hy ear ane 


rae 


hh 
==. 
=>; 
ee: 
—: 

i: 

b 





SYMBO!, 


ALFPROPY 
BHBCOZ 
CPREC 

CPFKB 

CPY¥SEM 
GCHAR 

ECHR ft 
GCHER4S 
GCHR4? 
GCHR4S 
GCHR4S 
GCHRSE & 
LELCK 

LBLCK2 
LCOARSe 
LINELS 


LIHELC | 


List 
LISTN 
LISTHE 
OUTPPS 
QUTPPS 
OUTPRE 
PEINGG 
PBINBD 
POERTEL 
FDERTS 
| PDERZG 
PDERS 
POERS2 
PODER 
PDEROK 
PFK10 
PFK11 
PFKI2 
PFET? 
PFK20 
PFK300 
PFR3OS 
PFK310 
PFK3t5 
PFE SSE 
PFKISE 
PFK334 
PFRK3S¢ 
PFK 34 
PFR34¢ 
PFKSS 
PFK3E 
PFE 45 
PFRKAY 
PFKAG 
PFKS2 
PFRSS 
PFKS? 
PFRSY 


733 
1163 
1553 
1556 

308 
“322 
"332 

336 

W341 
“360 

300 
1213 

1324 
1331 
i427 
1432 
1331 
1344 
134% 
1372 
1377 
1407 
1415 
1423 
1452 
1423 
1454 
1460 
1466 
1502 
15032 
1564 
1514 
1526 
1541 


There idee ty ‘ 


th Bian 

















| PFK7O 


PL 


PLBL 
PLELO 
PLBL3 
PLUDI 


PNUMNGBE | 


PNUMBR 
2 PPGMRS 
 PPGMST 


| PPOSOS 


© PPGSI8 
- PRESZO 


. PPGS25 


- FPGS3¢ 
' PPGS32 
» PPGSS2Z 
" BPES34 


» PPGSSS 


- PPGS37 
| PPGSéE 
| PPGS6S 


» PPGSNL 


» PPROM! 
3 PPROMZ 
| PPROMT 
4) FPSYZ0 
* PPS200 





. PROWOS 
7 PROMI 
PROW IS 
PROW 1 
FROWT2 
» PROW2 
' PROWS 
{ PROWS 


. PRP 


 PRPAIS 
 PRPAZO 
| PRPAG 
' PRPA4S 
| PRPASS 


" PRPASS 


» PRPASC 
_ PRPERR 
| PRPINT 
° PRTLOD 
» PRIPIS 
' PRTPIG 


1542 
272 
405 
377 
405 

1676 

156a 

1Sé1 
S52 i 
S22 
S23 

- 525 
544 
552 
SSé 
557 
56% 
566 
56? 
ore 
613 
615 
517 
632 
642 
631 


14a 
1615 
1225 
1222 
1225 
1242 
1242 
1244 
1242. 
1926 
tor? 
16773 
1037 
1044 


1540 
231 
466 


1714 


1603 


S20 
331 
342 
245 
553 
550 
351 
SSS 
9365 


611 
600 


126 


702 
654 
660 
664 


11 


wh ar eh 
hs & Gl hi — 


* 


32 


125° 
1213 
t221 
1263 
1233 
1236 
121? 
1631 


24. 


15 


- 1036 1034 
- 1043 
-~ 1162 
- 1100 


PRTPIS 
PRTP26 
2 PRTP2O 
- PRTPAG 
/ PRTIPSO 
- 19143 
- 1133 
- 1242 1146 
- 1116 
- 1426 
- 55 


= PRTPSS 
| PRTPEO 
PRTPE&O 
PRTPAC 
PRTPL 
PRUCIU 
PRIV1 ZG 
FRU ZZ 
PRT 24. 
PRUG-& 
PRIS 1 O 
p PRUE 
=> PRWIZL 
PRIWISS 
PRIIZS 
PRUIZE , 
» PRWOZE a1 + - 212 
! FRUGAL 226 - 265 
& PRUGSES 24% - 251 
PRWSS OC 252 - 271 266 
FRWS60 253 - 277 274. 
PSTRIG 423 - 43¢ 
PSTR26 435 - 431 
PSTRNG 415 - 410 376 
PT 275 - 2¢1 
PTRROW $11 - 
PKRI10 717 - 
_ PRRI9 737 - 721 
PKR2ZO 740! ~ fas 
- PXRIO 76% - 752 
 PKROM 704 = 
REGASC 1652 - 
SMABC 267 ~ 233 
SPCAS® 165% - 1645 





- 455 
- 473 47 
- 44 #6 
-~ $44 


= ts? 
7 160 «6163 
= 176 





LL Liste: Be pape taebmdecpengee se cp ei 2 Ie 4 


sinha Sieg ye A 


Pe 


HEME ee AC ee Tecoma FLL anne ee coh long Lae MLE NE oe he 
Pape ise eA AT TERRES pr Tg wi tt 
* 


a 


. 
bailite 
Set 


PS 
wal 


EXTERNAL REFERENCES 


ASRCH 1023 

RSRCH 1024 
BINBCD 217 
BINBCD 226 
BINBOO 602 1573 
BINBDO 60% 1574 
RBINBDS 1556 
RINGDC 1557 : 
BPRGOPM 44 71 132 151 370 462 {417 
SPROM | 45 72 133 152 371 463 1420 
CKANGE 674 1701 

CKANGS 675 1trd2 

CKANGL 423 1517 

CKANGL 424 1520 

CPBYTE 254 342 425 613 677 76? 
CPBYTE 255 342 426 614 740 rro $522 
CPCMHD 1.051 

CPCNHD 1052 

CPYSEM 372 413 464 

CRYSEM 373 414 465 

DRTAPRK 1761 

DKTAPK 1762 

ENCP ODO 361 1715 

ENCE OG 362 1716 

ENLCD 1674 

ENLCD 1675 


cn 
Ro 
a 


EULOR 38? 

EOLCR 364 

EOLUL J6v 1675 1120 1151 $4466 1246 
e0LL so! O0Fe 21 $152 1167 1247 
&OLR 1t44 

EOLR 1145 

ERRNE 1026 

ERRNE 1027 

FLINKP i044 

FLINKP 1045 

ePNSTS S3V’ 1107 163 

PFNSTS oft Ita 1164 

iaCHRR 16776 

BCHAR 1677 ; 

BaTPC S25 1041 153 

b= TPC S2¢ 042 1154 
GLINE# 107% 

GLINE# 1074 

GTReYT 1747 

GTEYT 1750 

BTRXNAC vie 

GTAMAL v2u 

IHADAF 401 405 

THA BHP 402 406 

INCAD ¢%S 447 743 1745 
IHCAD re 450 1744 trde 
IPRT 106? 

IPRT toro 

i.BLOK vos 


LBLCK 334 


















Lcpasc 670 
LCDASC 673 
LINELC 604 
LINELC 605 

» HBYTAB 115 
& NBYTAB 116 
| NRBTXP 374 
| NXBTXP = 375 
| NRTBYT ? 
» NRTBYT = 109 
é OUTPPS 34 
~» OUTPPS 35 
i; PADI+A 114% 
» PADItA 1142 
| PBINBG 763 
' PRINBO 764 
' PBLANK 325 
: PBLANK 326 
" PBYTDU 17904 
« PBYTDU 1705 
| PBYTEC 1711 
X PBYTEC 1712 
> PDERGW 25 
+ PDERC 26 
+ PFK20 735 
} PFK20 72E 
» PLBL 75? 
| PLBL 760 
= PNUMBEB 221 
* PHUMRBE 222 
FPCMRS ita? 

_ FPGMRS 11306 
FPGSNL 1201 
PPGSNL . 120% 
PPROM! 42 
PPROM} 43 
PPROMZ 736 
PPROMZ 733 
PPRONT 2 

_ PPROMT 33 
2 PPS200 1437 
: FPSZOG 1446 
4 PRIOIO 1465 
= PRIO1Q 1406 
, PRIRT 1765 
1 PRERT 1767 
4 PRK 1552 
© PRKC 1552 
. Frauot 43% 
: PRQUOT 43¢€ 
~ PRIMSE 165 
i PRIMASE 160 
>) PRIPSt 1264 
. PRIPS@ 1265 
PRWIZU 62 
PRUIZU 62 
PRWISE 5a 
51 

1500 

Su) 


154 
155 
403 
404 
451 
452 
315 
916 


vr2 
*7?3 
1441 
1442 


1147 
1150 
1227 
1220 


70 
1430 
1431 

130 
131 


1504 
1505 
475 
476 


1456 
14° 


344 
345 
432 
433 
S25 
926 
33 
734 


1543 
1544 


147 
150 


1526 
152? 
r4e 
r43 


707 
710 


1344 
1345 


1601 
1602 


366 


36? 


1237 
1246 


460 
$61 


1336 
1a3¥ 


S43 
314 


1415 
i416 


PRAYO 1172 
PRA10 1173 
PTKROM 1? 
PT RRO’ 29 
PUTPCF 1053 
PUTPCK 1954 
PUTPCL 115? 
PUTPCL 1169 
PWAITT 1122 1269 
PUAIT 1123 1261 
PRO 1311 
PRRIOQ 1312 
PXROM 107 
PAROM 119 
SKPLIN 1155 
SEPLIN 1156 


End of VASM oes, 
vASM ROM AS SEMBLY REY, 6/81A 


GFPTIINS: C$ 


2 FILE SCPR4E& 
OIC ORICIGICIOR ICI CIGOIHOIG ICCC IGOR CCK CE CCC CCE aC RC HEEC He tae HB CCC fete 
*« 
* FILLIN - FILL LINE WITH BLANKS AND PRINT 
* ; 
* USES: A.K, C.¥%, N, SY, AND TWO ADDITIONAL SUBROUTINE LEVELS 
« IN: G=# OF LAST CHARACTER POSITION FILLED $0 FAR 
* PT=0 
* OUT: NOTHING 
* ASSUMES: HEXMODE, S3=PRINTER INTERFACE ERROR FLAG 
12 
* 
* FELLNP - SETS THE POINTER TO 0 AND FALLS INTO FILLIN 
PY ’ 
(6 : ENTRY FILLIN 
7 ENTRY FILLNP 
13 0 FILLHP 1634 PT= 0 : 
19 1 FILLIN 460 LDBI 
20 z 36 CON 24 
zt 3 406 A=C x 
22 4 226 C=G 
ns a 706 R=A-C xX 
34 LEGAL 
25 6 { GOSUB PAD 
25 ? 0 
26 10 1 GOLONG EULR 
ae 11 2 
D4 
* 
= SH RC RE a Re Re HR Ae fe 2 A ORE EH EC CR Tt SH He RCA HH St fe oe TOA ea CA I 
cy ; 
* INASHP - INCREMENT ADDRESS, USING Sé& TO DECIDE RON/RAM 
* USES: AS: 9 
* IN: 83: 0=ADGRESS 
* Ss6=1 FOR ROM, Sé6=G FOR RAN 
a PT=3 
* OUT: AS:G0 INCREMENTED TOG NEXT BYTE RODRESS 


mete Hd MS og Sree I Fy me fast cape st me ah a i 


eel ainni cn tive Apisdeneenad tee 2 GAHRAN aviniied Gas, Cpe gaed. east ie Ie 


Ta De ee 


"apt ake ate ae or ae ae ce rie ae ts ti ae dt de oe ae abt i 2c ae oft or 


*« 
* 


* 


ASSUMES: HEXMODE 


39 ENTRY 
4 12 INHABKP Sid ?S6=1 
4 13 1 GOLNC 
bf i4 2 

42 18 556 A=At! 
42 16 1740 RTWN 
44 


PRT 4 


INADXKP 


INCABA 


ROM? 
ING 
i 


YES 


t 
. 
+ 


WOR UIOR IO ICICI OIOI IC HOR OIE ICICI CICIGIOAOIOE ACAI ICICI CIC CIOIOICIOICK CICK OIE AC HOIOICIOICA AC ACE ACHE ACA HCA CR HOR AEE ACE 
m= PRINT & IN [TRACE — te teate teat atc ote ate atte tect ateate tects de te tet ok 


i IOI O I OIC OSHC OIC CCCI OIC ICI tok do do dC CHa tek dak dai dedokcioa dai dea ek deb dk ato 


: 49 ENTRY PXTR- 4 
*6CgQeSe 17 PTR 1 GOSUB CKTRCE SEE IF PTR IN TRACE MODE 
; so 8620 0 : 
54 21 1740 RTH HO 
52 22 1 GOSUB FNOPTR ‘LOOK FOR THE FRIWNTER 
52 23 0 | 
53 24 1740 RTN PRINTER NOT FOUND 
Si 25 314 27510=1 : RONFLAG? 
b 65 26 37 GOCc PXTR2 31) YES 
i 56 27 1St4 7S12=1 PRIVACY? 
: 5? 30 73 GONC . PXTR4 37> NO 
: $2 31 PHTR2 314 ?513=1 RUNNING? 
E sy 32 107 GOC. PRTREX 42) YES 
a 62 33 1 GOSUB LDSSTO NO, PUT UP STATUS SET 6 
“ 6o 34 0 . 
6! 35 114 754=1 SINGLE-STEPPING? 
52 36 47 GOC PXTREX 42) YES 
£2 37 PKTR4 1 GOSUB FNSTS 
472 40 0 
44 41 tt4 7S4=i "SLL" MODE? 
45 42 PXTREX { GOLNC UNL NOPE 
65 43 2 
66 44 240 SEL P : 
6? 45 214 ?5S5=1 SUPER TRACE ? 
63 46 1 GOLC PRSTKX YES, PRINT STACK 
68 47 3 
| é9 50 1 GOSUB INITC 
: 69 51 0 
* PXTR DROPS INTO PRXSUB HERE 
- A 
-* PRXSUB CPRINT X SUBROUTINE) - PRINT X WITH THREE STARS AND EULR 
i 
‘ * USES - THREE ADDITIGNAL SUBROUTINE LEVELS!!! 
a. a, B, Cc, P, &, G, $a-89 
aoe 
/ INPUTS - $9 IS PRINTER INTERFACE ERROR FLAG 
om VALUE OF K IS IN R23 : 
/&* QUTPUTS - ONE LINE TO PRINTER BUFFER, S39 ERROR FLAG 
7 PSSUMES - CHIP 0 ENABLED, HEX MUDE 
+ 
: mz ENTRY PREKSUB ? 
2 52 PRXSUR 3PFQ C=REGN 3 GET &% REG 
4 53 1 GOSUB ACKSUE | 
24 54 Q ‘ 
25 5 1 GOSUB PRTMNSG 
25 56 0 | 
ME, 5 244 CCN e244 4 BLANKS 





Ee 


* THIS ENTRY 15 SED BY TIMER TOO, 


id 60 ve CON ese * 
Et 61 Sz CGH BSZ * 
oy 62 452 CON 4452 # 
26 63. 433 GOTO EGLREX ¢ 126) EUOLR 
* ‘ 
FORORCGROROICHOR OR CICICIOICICIC IO CACO ACRCHCICIOAGCCHORCACCHORCICRCICR CHACHA HORCHCRCEGCHCAC HCA HORS CCH A ACH ACH 
ste PRTIS - SSTY BST 4s dtd de tO ton CC a dt Hd aia ded dA io 
Sa TRC ORR EHEC CACC RORC IC ECR CACHE ROCA AE EAHA OE ARC HC Oa AE oe 
aS ENTRY KXPRTIS 
96 64 KPRTIS ¢€60 C=STK 
ov 65 eet C=STk 
De 66 530 M=C SAVE SSTEST RTN IN MN 
a3 67 { GOUSUB DATAFR 
w9 fal 0 
1Ou v} 630 C=M 
10! 72 S60 STK=C 
Tbs 73 1 GOLONG FRISRT 
tte 74 2 
te vo 20é& CON G206 F 
13 76 25 COW 21 U 
1e2 0? 2 LOW z B 
tte 100 22 CON G22 R 
107 1061 20 CON Geu F 
166 ENTRY PRBUF 
10% 102 FRBUF 1 GOSUB CKEN 
1ts 102 0 
itu 6104 1740 RTN 
113 105 1 GOSUB FNDPTR 
4197 106 0 , 
tt2 107 £33 GOTO PECHKJY ¢ 172) 
112 46190 404 S8= 0 
Tick 6143 1 GOSUB INADY 
Vid 112 0 
tt es 1 GOLOGHG LFPECHK 
115 114 2 
* 
SUR IOREICR HOCK CCCI HCCC CIC HOR GCHCK aaa HOR aC dak der iC Hee decd tc ee 


IT REQUIRED USED ONLY 8,C,N,PT 


* §0-357,59 AND +2 SUB LEVEL 
ef 
421 ENTRY PAD 
se 115 PaAbdY 1 GOSUR CKEN SEE IF OK TO PRINT 
tee #116 6 
12°33 0 «6117 {740 KTH NO : 
ze 126 1 GOSUB FNOFTR SEE IF PRINTER PRESENT 
te4 123 U 
125 06-122 (03 GOTO PECHKI ¢ 172) NO, GOTO DISPLAY ERRQR MESSAGE 
{26 23 404 Sg= 0 
12? 8 6ta4 1 G0SUB INADY GET GUT OF CGLUMNH MNOGE IF Ik 
127 06425 0 
we 1126 FOLREX 1 SOLOHG RPECHK NO, ECGLR, CHECK PRINTER ERR 
as 27 2 
le CR Me NCTE RE NES NOH HC TEC IC HE CEC CRC ES RC TRC SEG 2 CEC EC SO SE TI eC CR A EE 
Gr 6 6U1S8 sez CON 6222 R- 
131 13i 10 CON '@1d H 
22 132 3 CON G3 Cc 
25 133 3 CON @x Cc 
124 {34 1 CCH  } A 
122 ENTRY ACCHR 
{7e ENTRY RCCHKS 


a A Se ne 
URES SUNS Son GE Te a a i dE 


1g feted Se Te 


a weber teen perenne: ree An re 








: 137 135 ACCHR 1 GOSUB CR<¢128 *% TO BINARY, RTN IF K<128 
5 137 0 «6136 0 , 
" 126 137 ACCHRX 206 B=A pd SAVE A.X IN B.X 
F 139 «6140 t GOSUB IACHR 
| 439 tat 0 | 
440 #142 206 C=6 x PUT THE CHAR INTO C.X 
| 141 143 1 GOSUB CKANGB ?F S$ CHECK IF THE ANGEL SIGN 
| 144 144 a 
| 142 145 406 a=C x 
if 142 146 460 LDI 
i44 147 12 con | {6 
145 150 1546 7? A#C Xx IS IT THE DIAMOH 7? 
14% 151 i67 GOC PPECHK ¢ 167) NG 
147 152 & A=0 x DIAMON IS 0 
1948 153 143 GOTG PPECHK € 167) ACK? TO PRINTER, CHECK ERRORS 


UICC ICI ICIIGR RICCO Cc lek ok ii tok ica dette ede dak desk et a eo 
* 
* SCCGL - ACCUMULATE COLUMN IN PRINTER BUFFER 


SO PS PN AREER A OR EE EEE NS BYE Se PE ET I AP OATS eS 


x 
183 154 214 CON @214 i: 
4 («155 17 CON 15 0 
15 156 3 CON 3 Cc 
+ 186 157 3 CGN 3 c 
t i577 169 1 CON 1 A 
f 152 ENTRY aACccOL 
k #59 161 ACCOL 1 GOSUB Cx<128 "Y" TO BINARY, CHECK < 125 
5 159 162 0 
E jer 163 206 B=A i SAYE A.X IN B.X 
i 16: 164 1 GOSUB IACOL INITIALIZE COL OUT PRINT 
16% 165 0 
162 166 146 AB EX X RESTORE A.X& 
162 
14 167 PPECHK 246 AC EX X 
145 170 1 GOSUB PBYTEC CeX%> BIT PATTERN TO PRINTER 
165 171 - G 
$£5 172 PECHKJ { GOLONG PECHK ERROR CHK AND EXIT 
tie 173 2 | 
_ * : : 
* CKTIRCE - CHECK IF PRINTER IN TRACE MODE 
_# RSSUME: CHIP 6 ENABLE 
- * GUTPUT : CHIF 0 ENAELE 
oa RETURN TO P+t IF ; 
= 1. PRINTER NOT EXIST 
Sk 2, PRINTER NOT IN TRACE NGDE AND RUNNING 
; *® RETURN TG F+2 IF : 
2 * 1. PRINTER PRESENT AND NOT RUNNING 
ioe 2, PRINTER PRESENT AND RUNNIING AND PRINTER IN TRACE MODE 
¢ 
i 17% ENTRY CKTRCE 
 * 
: 16% #174 CKTRCE 1140 SETHE 
‘ 183 75 1 GOSUE LOSSTO 
: 18: 176 0 
: tet 177 1614 756=1 PRINTER PRESENT ? 
4 e% 200 1640 FTN NC | NO 
4 1¢ 201 1314 7513=1 RUNNING ? 
: 125 2602 72 GCNC CKTRC! ¢ 211) NQ, RETURN TO P+2 
: 16 203 734 C=HPIL 7 
176 2064 rary 
ie -2U5 703 
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it 


zs FReRERHRERA 


* 


ae eh oe ok 
ww Ge oc Of 
oo wo 


PRSY 


FOR FLOWCHART SEE 


206 
207 
210 
eit 
212 


CKTRCI 


1530 
tt4 
1640 
1 

2 


ST=C 
7341 
RTN NC 
GOLONG 


RTHP +2 


PTR IN TRACE MODE ? 


HO 


CPRINTER SERVICED - 170 SERVICE ENTRY POINT LOGIC. 


Bu’S LAB BOOK #&377 P.15 


ENTERS WITH SSO UP. 
IF NORMAL RETURN TG RMCK10O IS MADE, 
Si 0 NUST BE UP. 


2c 


WHEN WE ARRIVE AT 


IS TSENED ON. 


20% 
2Ga 
20% 
206 
2ay% 


a 
2us 


2cs 
2ty 


2ist. 3 


217 
2t2 
213 
2a 


215 


 -2ts 


S3NMN PS fo NM 
Pa PO PO Bt 


h 
nf 


2ty. 


213 
219 
22h 
221 
221 
222 


223 


225 | 


224 
22a 


ome 
sh 


+ chs ay: “sj & i 


es BS NS PS PS A BGO PD Ba 


213 
214 


moo Ae OF OT UO OTA UO 
& WP coe NO ee GI A 


PRSYC 


PSVYC10 


PSY¥C20 


PS¥C30 


FSYC380 


PS¥C3Q 


ENTRY PRSVC 
PRSYC, 
246 AC EX X 
530 Mac 
16760 C=REGN 14 
1074 RCR 2 
1730 CST EX 
1444 7S1=1 
40/7 wOC PSVC9G 
1730 CST EX 
1 GOSUB FNDPTR 
0 
253 GOTO PSVC3S0 
114+ FS9=1 
32Z7f GCC PSVC30 
14 ?S3=1 
Sy GOC PSVYC10 
1614 750=1 
123 GONC PSYCSO 
1414 751=1 
47? GOC PSVvC20 
1 GOSUB OOFNSG 
0 
213 GOTO PSVCSO 
1 GOSUB PRBUF 
0 
1 GOLONG ADDYSG 
i4i4 ?Si=1 
277 GuUc PKEY 
1014 7Se=1 
1 GOLC ADYKEY 
3 
1670 C=REGN 14 
274 RCR a) 
1530 ST=C 
14 793s! 
33 GONC PSY¥C30 
2344 HPL=CH 3 
1 CH= Gud 
1670 C=REGN 14 
12306 STFSc 
1 GOSUER UNL. 
0 


261) 


C MUST BE PRESERVED AND 


WE H@YE ALREADY CHECKED THAT THE PRINTER 


COPY PAUSETINER TO C.x 
SAVE C IN M 


PKSED ? 

YES, IGHORE SERVICE REQUEST 
RESTURE SST 0 

LOOK FOR THE PRINTER 


PRINTER NOT FOUND 
INTERFACE ERRUR? 


YES 

OUT OF PAPER? 

YES 

GOUT OF PAPER HOLD? 

NO 

PRINT KEY DOWH ? 

YES, SEND EGL, BO SHORT ADDY 


DISPLAY! "GUT OF PAFER" 


FRINT KEY BOWN? 
YES 
NO, 


ADY KEY DOWN? 
YES 


IM MANUAL MODE ? 


| ONG 
SHUT OFF AUTO IDY 
RESTORE 358 Ta ST " 


st a kite! me reer ae Spat ami 


Senin tee tbe SD 


seston >: 


‘i 
; 








taste Serie ANE! ¢ pore Gan I TA ewe ay Ee OE CN 
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Se 
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ES 
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240 365 Z £3060 C=M 

24! 266 = 406 R=C x 

242 267 £46 A=A-1 & 

242 270 23 GONC PSVCO99 
2440 27 6 A=0 % 

245 272 FS¥C39 1104 S3= 0 

24% 273 1 GOLONG RMCKIO 
2qt. 274 z 

PKEY - SERVICE PRINT KEY 

25 275 PKEY 1530 ST=C 

251 276 14 7SS=1 

252 277 23 GONE PKEY1S 
253 

254 300 > 110 S4= 1 
DSPLH+t AND NLTO4FG. SVERLAYS SSTFLAG 
256 301 PKEYIS 1 GOSUB ODSPLN+ 
256 302 0 

257 383 1 GOSUB MESSL 
257 304 0 

252 305 20 COW 16 

23 306 22 CON 13 

zee 367 1630 COGN @1030 
26t 318 1214 7S7=ft 

262 Bit S53 GONC PRT3 6. 
262 

264 312 1670 RABCR 

2€5 313 t GOSUB MESSL 
265 314 0 

266 315 —~=F00t CONS @iogt 
267 316 PRTSO 1 GOSUB LEFTJ 
267? 317 0 

269 320 1 GOSUB EHCPOO 
262% 321 0 

269 322 134 PT= 4 

270 323 f22z0 LC 10 

271 224 yz0 LC ? 

272 325 SeOQ LC 5 

273 326 #20 LC 4 

274 32? t214 7S7=1 
2r3)|06230 43 GOHC PKEYI5 
278 331 {G34 PT= 2 

277 332 420 LC 4 

2v7%s 333 $020 LE 3 

279 $234 PKEY3S 230 M=EC 

22 235 1620 C=5T 

28t 336 1634 PT= 0 

282 337 13¢ Gece 

23% 

234 32486 460 LDI 

2e5 <4 70 Can e790 
206 342 PRT40 £146 C=t-1 & 

esvy 243 177 Guc PRTG&S 
2e: 344 246 BE EX X 

2e% 345 1 6BOSUBR FNSTS 
225 246 0 

29t 347 206 C=6 x 

23t 350 1114 FS3=1 

29. 351 37 GGOC PRTSu 


¢ 301) 


IN SS @ 


¢ 3165 


¢ 3342 


¢ 


tJ 
Ov 
Kh 
ww 


¢ 354) 


RESTORE C 

RESTURE PAUSETIMER 

ADJUST PAUSETIMER 

ROLL OVER 


DON’T ALLOW FPSETMNR TO 


RESTORE STATUS SET 0 
PROGRAM MODE? 

No 

PROGRAM MODE 


SET INSERT BIT FOR 


P 
R 
% 


ALPHANOQDE? 
NO 


SCRAP THE x 3 
ADD "A" TG GET "PRA" 


B 


SET UP FC FOR PRA OR PRX 
FOE FOR PRex=APS4 


ASSUNE PRY 
ALPHAMODE? 
NO 


YES, FC FOR FRA=aArds 


FC TO MNC4:t] 
COPY ST Ta G FOR NLTO4SB 


INITIALIZE TIMER 
TINEGUT 

SAVE TIMER IH &.% 
GET PRINTER STATUS 


TIMER BACK TE 
PRINTER ERROR 
YES, ASSUME KEY Is 


Cla 


uF, 


wmibieiti sed i 





202 252 1444 ?Sts= PRINT KEY STILL DUN? 
2%q 353 1677 GoCc PRT40 ¢ 342) YES 
*SIHCZ THE PRINT KEY WON’T BE RECOGNIZED UNTIL THE PRINTER IS IDLE 
*#AGAIN, SNO SINCE THE PRINTER KEYBOARD DGQESN‘T LATCH KEYS, THE TIME 
#TAKEN TO PRINT IS USED TO DEBROUNCE THE KEY. 
295 ENTRY FRTSO 
Z2US 
390 354 PRTSO 1 GOSUB UNLRSF 
30% 355 0 
Zot 256 630 C=M 
30% 357 416 A=C FC BACK TO Al4:1)} 
30% 346 1 GOLONG NLTO4¢ 
30% 361 2 
304 
30% PRT6O NULL GUT THE PRINT KEY’ 
306 262 404 SS= G 
397 76S 1 GOSUB MSGA "NULL" MESSAGE To OISPLAY 
3607 764 G 
Zoe 265 G DEF NSGNL 
30% 266 253 GOTO  ADVGZ ¢€ 413) 
1" 
* HDYKEY - SERVICE PAPER ADYANCE KEY 
« 
313 ENTRY ADVKEY 
Bis Zé? ADVKEY 404 S&= 0 PREPARE TG GET OUT OF COL MODE 
315 370 1574 RCR. 12 
3's 371 1730 CST EX GET BACK 2ZND STS BYTE 
31? “Sire tid 754=1 ALREADY IN SFEC-K NODE ? 
318 3723 47 Goc ADYOKC ¢ 377) YES, SEE IF COL NODE 
319 #374 1 GOSUB SPEC-K ’ SELECT SPEC-K MQDE 
319 375 ti 
32n 376 43 GOTO ADVGO1 << 402) 
B21 377 ADVCKC 1414 75121 IN COL. GUT MODE ? 
325 400 1 GSUBC INITSM YES, IF S1=1 
322 401 1 
323 402 ADVO1! 1676 C=REGN 14 
324 4063 1530 ST=c 
325 4064 14 7S3=1 IN PROG MODE ? 
326 405 177 GoOC ADVO4 ¢€ 424) YES 
327 466 1 GOSUB DATAPR PRINT DATA ENTRY STRING 
327 407 0 
32% 410 1 GOSUB EOLR EQLR= GET OUT ANY PARTIAL LINE 
325 0 64tf U 
325 412 1104 SS= 0 IGHORE AanY ERROR S30 FAR 
3ze 6413 ADVOZ 1 GOSUB FNSTS 
3a" 4f4 0 
23: 6415 1114 7S59=1 PRINTER ERROR? 
332 416 557 Goc ADYSO ¢ 473) YES, ASSUME KEY IS UP 
3SR= O47 1014 792=1 ADY KEY STILL DOWN? 
33< 420 i737 Gac ADVGZ << 413) YES 
335 421 1414 ?S1=1 PRINT KEY STILL DUWN 7? 
336€ 422 tri7 sac ADYO? ¢€ 413) YES 
33+ 423 ADVOS §03 GOT nOvV50 ¢€ 473) NO. ALL DONE. 
335 3 
* SERD COMMAND TO HELIOS TQ IGNORE LOCAL PAPER ADYANCE 
340 424 40464 { GOSUB PRIMNSG PROGRAM MODE, IGNORE FAPER abveant 
B4(r 425 u | 
Bei 426 rer CON a7 IGNORE PAPER ADVANCE COotnsant: 
342 42? 110 S4= 1 SET $4 FOR DSFLH+,ETC. 
342 4230 1 GOSUB DSFLN+ 





342 431 0 
344 432 1 GOSUB MESSL 
344 433 0 
345 434 + CON 1 A 
34% 435 4 CON 4 D 
e 347 436 1626 COW @1 026 ¥ 
4 342 427 1 GOSUB LEFTJ 
it 34% 86440 G 
i 34o0 441 1 GOSUB ENCPOO 
“ih 349 864442 ¢ 
a 350 443 134 PT= 4 
2 351 444 1020 LC 8 FC FOR 
fe 352 445 1720 LC 15 ADY 
| 352 446 530 M=C 
, 354 447 1630 C=ST 
i Ss 450 1634 PT= G 
L 35€ 45! 130 G=C 
» 357 452 460 LOI 
i 352 453 70 CON @70 
i 35% 454 ADVIG 1146 C=C-1 Xx TINEGUT? 
i 360 455 137 GOC ADY3G <¢ 470) YES 
f 361 456 346 BC EX X 
¢ 362% 457 1 GOSUB FHNSTS 
i 362 460 0 
£ 362 481 1114 7S9=1 PRINTER ERROR? 
t 354 462 47 coc. ADY20 ¢ 466) YES, ASSUME KEY 15 UP 
7 365 463 306 C=B x 
z 354 464 {G14 7S2=1 ADV KEY STILL DOWN? 
z 367 465 1677 GOCc ADYViIO <¢ 454) YES 
z 36% 466 ADVZO 1 GOLONG PRTS5SO 
: 362 467 2 
= 369 
370 ADY30 DG LOCAL PAPER ADVANCE 
371 470 1146 C=C-1 xX COND: FF TO FE 
372 LEGAL 
* SEKD HELIOS A COMMAND TG RE-ENABLE LOCAL PAPER ADYANCE 
374 471 1 GOSUB PBYTEC 
374 472 0 
375 ENTRY ADYS6 
376 $73 ADbVSO 1 GOSUB UNLRSF 
3 376 474 0 
: 377 475 1 GOLONG ABTS10 
Z 37% 476 2 
By 
7 
2 SECRCIOROIOIGGE ROE GRCRCHCROCRCEOCHCHICALIUR NORCO CR EEE RRR ERO RR RCRA EC RRR i CO 
}* BLDSPEC - BUILD SPECIAL CHARACTER 
ra J 
Rf 334 477 203 CON @203 C 
: 3385 500 Ss can 5 E 
4 336 501 20 CON 16 P 
a sey S02 22 CON 13 s 
3 328 5063 4 CON 4 D 
a 339 504 14 CON 12 L 
2 33% 505 # COH 2 B 
g 391 ENTRY BLDSPC 
s 392 506 SLUOSPC 1 GOSUR Ck<é1ze "" TO BINARY, CHECK <128 
392 S07 Q 
39: S10 270 C=REGN 2 GET Y 


i 


Ra ge 


3 


wn tne yeep et 


394 Sif 1476 C=C-1 §& ; 
395 $12 1376 7 CHO S IS Y A NUMBER? 
396 513 22 GONC BLD10 ¢ 515) NOD 
397 St¢d . 116 C=0 YES. INITIALIZE TG NULL STRING 
335 515 SLDIO 756 C=C+C : 
39% 516 756 C=C+C 
460 517. 1574 RCR 12 : 
40+ 520 1224 PT= 13 
402 521 120 LC 1 LEAVE SIGN DIGIT= 1!= ALPHA DATA | 
40% 522 1712 C SR uIP T LEAVE 3 NSB OF DIGIT {f2= utd 
404 523 752 C=C+C WPT 
405 524 1006 C=A+C X 
406 525 356 BC EX 
407 526 1 GOLONG DROPST 
407 52? Zz 
is 
* ACSPEC - ACCUMULATE SPECIAL CHARACTER 
* 
« USER &.C,M,N,PT,S9:0, & 2 ADDITIGHAL SUBROUTINE LEVELS 
* 
*-AaCGPCL= ACCUMULATE SPECIAL CHARACTER IN C REGISTER 
*-USES: a,c,M,N, PT, $0-59, 2 ADDITIGNAL SUB LEVELS 
«INPUTS: C= SPECIAL CHARACTER, CHIP 0 ENABLED 
* RTHS WITH CHIP G ENABLED , 
* fs 
418 830 203 CCN. @203 Cc : 
419 531 5 iON 5 E F 
42% 532 20 CON 16 P. : 
421 533 23 ROW 13 S : 
4zu «534 3 COW 3 C 
423 535 1 CON { A 
4za ENTRY  ACSPEC 
425 536 ACSPEC 370 C=REGN 3 
426 S37 1176 C=C-1 §$ 
427 S40 1176 C=C-1 §$ 
425 S41 AERRDE 1 GOLNC ERRDE 
428 542 Zz 
42% 543 1 GOSUB IACOL INITIALIZE CCL OUT PRINT 
4n% Sd4 0 
4300 S45 1234 FT= 13 
431 546 620 LC 6 
432 547 $36 A=C S 
43> 550 370 C=REGN 3 
436 551 210 S$5= 1 EXIT TO PECHY 
425 S52 33 GaTa anspec ¢ 555) 
436 
437 S53 SPEC1O0 630 C=M 
438 554 756 C=C+c 
435 ENTRY ACSPCC 
440 S55 acspcc 1374 RCR 13 
444 556 756 C=C+C 
440 557 756 c=Cc+c 
44= 560 S30 M=c 
444 561 1574 RCR 12 
445 S62 1 GOSUBR PBYTDU 
445 563 U 
444 564 676 A=Aa-1 5 DOWE WITH REGISTER YET? 
447 565 1463 SONC SPECIG ¢« 553) NO 
44% 566 214d 755= “IT Tao PECHK 7? 
440 567 1640 RTN NC No JUST RETURN 


e822 eR 





OF THE POSSISLE PRINTER ERRORS. 
ea 
as9 GU 7 ENTRY 
466 ENTRY 
i: 461 S70 PECHK 1114 7S9=1 
I 462 571 1 GOLNC 
é 462 S72 2 
f 462 
t 464 573 PEDIAG 1 GOSUB 
i 463 574 °- 0 
i 445 575 243 GOTO 
465 576 14 7S3=1 
: 467 577 243 GONC 
i 462 600 1 GOSUB 
‘ 462 601 0 
: 469 602 153 GOTO 
: 470 663 NOPTR 1 GOSUB 
z 470 604 G 
“ 471 665 16 CON. 
: 472 606 17 CGH 
473 607 40 CGN 
474 610 20 CGN 
475 611 7 22 CON 
476 612 11 CON 
477 613 16 CON 
4758 614 24 CON 
479 615 S COW 
486 616 | 1022 CON 
481 617 PEGS 1 GGLONG 
481 620 2 
492 
Oi ge? 621 PEO 1114 7S9=1 
46¢ 622 1613 GONC 
435 623 FEZO 1 GOLONG 
4285 624 z 
"ge 
487 625 UNLEX 1 GOLONG 
467 626 “ 
a, 
45% FILLTO 
627 gosca NOP 
ce 
. *-INITSc= 
 *-INITEM= INITIALIZE - SEND 
1 a 


USES: 
| INPUTS? 
 #-OWTPUTS: C 


om 


4 


one 


PECHK K PRINTER ERROR CHECK) - IF S9=0 THEN DUES AN IMMEDIATE RETURN 
ELSE FALLS INTO FEDIAG 


PEDIAG CPRINTER ERROR DIAGNOSTIC) - PRODUCES MOST APPROPRIATE ONE 


LJ 
t 


= ee 
io 


aay ‘ 


CHA ee 


Cor he 


EXITS TO MAINFRAME ERROR ROUTINE. 


PECHK 

PEDIAG 
ANY PRINTER ERROR? 

UNLRSF NOPE 

FNDPTR SEE IF PRINTER IS THERE 

PE10 € 621) PRINTER NOT FOUND 
OUT-GF-FAPER? 

PEZ0 < 622) NO, SOME OTHER ERROR 

COPNSG YES 

PEOS « 617) 

PLEREX NO 

@16 N 

@17 o 

@40 

@20 Pp 

@22 R 

@ii I 

@16 N 

@24 T 

G05 E 

@1022 R 

ERRRTN 

NOPTR ¢ 6033 

PILERR | 

UNL 

B627 


MODE TO PRINTER (SPECIAL CHARACTER) 
MOCE TO PRINTER 


C,N, $8, 39 FOR ERRORS, PT, NG ADDITIONAL SUB LEVELS 
S21 FOR COLUMN GUT MODE, ELSE 38=0, HE MODE 
HIP 0 ENABLED, HEXMODE 
ENTRY INITSC 
ENTRY INITSM 
B30 INITSC 410 Sea 1 COLUMN QUT MODE 
631 INITSMN 106 C=0 x EHABLE CHIP 0 


% * 






RRR KEK EERE RARER ERE REE EHE EERE EEE EEE ER ERE EHH ERE EE ES SE 


S62 &32 1160 DADD=C 


S64 633 234 PT= 10 
50a €34 753 GOTO INIT12 ¢ 731) SEND MODE TO PRINTER 
367 


IPRY - INITIALIZE ORDINARY PRINTING FCNS CPRTK, ETC) 

1. CALL CKEN. IF RETURN IS TO P+! THEN POP THE SUBROUTINE STACK 
AND RTH. 

2. CALL FNSTS 

3. CALL OOPCHK 

4. FGRCE GUT ANY PARTIAL LINE. 

5. SEND NODE IF HECESSARY 


SOMETIMES DOES 
SES: C, N, SO- 
INPUT: NORE 
OUTPUT: S39 IS THE FRINTER INTERFACE ERROR FLAS 
ASSUMES: HEXNODE, CHIP 0 ENABLED 


A 2 LEVEL RETURN! 
$9, PT, AND 1 ADDITIONAL SUBROUTINE LEVEL 


IPRTM - INITIALIZE PRINT FOR MAINFRAME PRINTIHG FCNS YIEW AND AVIEW 
Sym= AS IPRT EXCEPT CALLS CKGEN INSTEAD OF CKEN. 


{ACHR - INITIALIZE ACCUMULATE CHARACTER FCNS. SAME AS IPRT EXCEPT 
SOESN‘’T FORCE OUT PARTIAL LINES AND USES 2 ADDITIONAL SUBROUTINE 


LEVELS. 


{ACOL - INITIALIZE ACCUMULATE COLUMN FCNS. SAME AS IACHR EXCEPT 
SET3 UP COL GUT MODE INSTEAD OF CHARACTER GUT MODE, NOTE IACHR’S 
USE OF SUBROUTINE LEVELS. 





FAGHA] - INITIALIZE AUTOMATIC PRINT FCNS WHICH PRINT IN BOTH "HORM" 
AND "ALL" FRINTER MODES. SIMILAR TO IPRT EXCEPT HAS DIFFERENT RETURNS 
AND LOOKS AT PRINTER MGDES INSTEAD OF CALLING CKkEN. 


RETURNS TG P+i IF NO PRINTING 

RETURHS TO P+2 IF PRINTING IS OK 

USES: C, N, 30-33. PT, AND 1 ADDITIONAL SUBROUTINE LEVEL 
INPUT:NONE 

OUTPUT: SY IS THE PRINTER INTERFACE ERROR FLAG 

ASSUMES: HEXNOOE, CHIP & ENABLED 


AUALL 
- INITIALIZE AUTONATIC PRINT FCNS WHICH PRINT IN “ALL” MOBE CNL YY. 
Sant AS IARUNA EXCEPT RETURNS TO P+t WHEN PRINTER I35 IN NORMAL MODE, AND 
INPUT REQUIRES Sa&=t,. 


SLOWCHARTS FOR PRECEDING INITIALIZE ROUTINES ARE IN DRC ‘S LAB 
EGGX #2364 F.46 . 


INLTC INITIALIZE 2GMMOGN PATH> - SPECIAL ENTRY POINT FOR PRT! AND PRTeS 
PoGIC WHICH OPTIMIZES SPEED WHEN NO PRINTING IS DESIRED. 

, N, 30:9, PT, & f ADDITIONAL SUBROUTINE LEVEL 

PRINTER INTERFACE ERROR FLAG 

:12=2NC0 BYTE OF PRINTER STATUS 


$7: G=1ST BYTE OF PRINTER STATUS 





* t 
* OUT: S9=PRINTER INTERFACE ERROR FLAG 
* RSSUNES: HEXMOODE, CHIP G ENABLED 
3 
a 
-* INITS — SPECIAL ENTRY POINT FOR PRTS 
i« SAME AS INITC EXCEPT FOR INPUT, 
om ING S9=PRINTER INTERFACE ERROR FLAG. 
me BL13:12] = 2NO BYTE OF PRINTER STATUS 
i BO1:01 = ST BYTE OF PRINTER STATUS 
 * 
573 ENTRY IPRT 
574 ENTRY IACHR 
575, ENTRY IACOL 
576 ENTRY  IAUNA 
577 ENTRY IAUNB 
7a ENTRY  IAUALL 
579 ENTRY INITC 
560 ENTRY INITS 
6090 531 £35 IPRT 1 GOSUB CKEN Gree OK TO FRINT? oOfoO Pemree +> RTN ¢! 
531 6236 0 
5$2 637 53 GoTo INS99 ¢€ 644) P+! - NO "os fee feet Faw he! Seay 
522 P+2 - YES 
534 640 1 GOSUB FNDPTR #740 
53q 641 G 
585 642 1573 GoTo PE10 ¢ 621) DISPLAY ERROR MESSAGE % Pre fay 
5986 643 3723 GOTO INITS ¢€ 702) 65¢2 
S37 
S4- Sos 644 IN999 40 SPOFND Yasco 
589 645 1740 RTN 
590 
591 ENTRY INADY 
592 
62h, 593 -~€ $8= 0 SET UP FOR CHAR GUTPUT 
594 GOSUB CKEN OK TO PRINT? 
59¢ 
595 GOTO INS99 ¢ 6443) P+1i - NO 
596 GUSUBR FNDPTR - 
596 
597 GOTO PE10 ¢ 621) NOT FOUND, DISPLAY ERROR HESSAGE 
552 GOSUB OOPCHK P+2 - YES 
596 
59% GOTO INIT{O ¢ 715) 
666 
60t Ses 1 SET UP FOR COL GUTFUT 
664 GOTO IN2ZG6 8 6¢ 6479 
* 
604 ses 1 NORM MODE IS OK 
* 
606 FILLTO @662 
* 
* InUeLl CALLED BY TIMER ROM TOGO. IT REQUIRED USE ONLY &,C,N 
* $0-37,.59,PT AND +2 SUB LEVEL 
* LAUALL 6DE3 
61; 63 BRR 0) cosue FNpPTR. LUOK FOR PRINTER 
611 664 0 
612 665 174Q RTN PRINTER NOT FOUND 
613 £66 IAUNB 114 ?7S4=1 "SLL" MODE? 
614 667 S57 coc INdO 8 ¢ 6749) YES, 30 PRINT 
615 670 414 7Sg=1 PRINT IN NORM NODE? 


* # 


671 
672 
673 
674 
675 
676 
677 


700 
vO} 
702 
703 
7 04 
705 
706 
VU? 
710 
vt 
el2 
V43 
714 
7tS 


(12 €DIGIT 10 
13 <DIGIT 
716 


vi? 


720 


721 
722 


723 


vet 
725 


726 


v2r 


ING 


INITS 


INITC 


IHITIG 


IHITI2 
INITIS 


INITZO 


INITSO 


IHITSS 


INIT4¢ 


10 


0 
t67d 
BIT 
BIT 
JS4 
144 
127 


1614 
133 
33 


1614 
io? 


414 


73471 
GOC - 


ENTRY 


LOI 
COOH 
GOSUB 


LOT 
CON 
GOSUB 


GOTO 
C=C+C 
GOHC 


78251 
GONC 
GOTO 


78251 


OC 


C=c+#e 
GONC 
730=1 
GOHC 
GOTO 


25051 
Sac 


7SS=4 


UNLEX ¢ 
UNLEX ¢ 
M 


INITC ¢ 


COFCHK 
6 
INITIO ¢ 


INITSO 


ECLCR 


i¢ 


715) 


DOVELE WIDE 
LOWER CASE 


16 


SPEC~K 


er 


PBYTEC 


124 
PEYTEC 


INITSO ¢ 


PT 


INIT20 ¢ 


INIT6O ¢ 
INIFSO ¢ 


IMIT6G ¢ 


PT 


INITSS ¢ 


INITéSO ¢ 


INIT40 ¢ 


INITSG ¢ 


75°) 


73 


37) 
r4t) 


746) 


ror > 
roa) 


“i 


or) 


702) 


-YNITIS ¢ 732) 


~.] 


NO 

ANGEM MOGE? 

NO, SO DON’T PRINT. 
INC RTN ADDR 


RESTORE STATUS TO C 
AND S¥:9 


COL OUT NOT DESIRED 
EULL 7 

YES 

IN COL OUT MODE 7% 
YES, GET GUT OF COL OUT MODE 
BUFFER EMPTY 7 

NO,FORCE GUT PARTIAL LINE 


HELIO CHAR SET 7 
YES 


SEND "ESCO <" FO GO INTO HELIO NOt: 


NUT DOUBLE WIDE? 
HO 

NUT DOUBLE WIDE 
HELIOS DWM? é 
NO. GO SEND MODE 


NUT NOT DOUBLE WIDE 
HELIGS DWN? 

YES, GO SEND MODE 
NUT LOWER CASE? 
YES, NUT LOWER CASE 
HELIOS LOWER CASE? 
NO. GO SEND MODE 


NUT NOT LOWER CASE 
HELIOS LOWER CASE? 
YES. GU SEND AOCE 


NUT COLUMNH OUT? 


*"— 


ote 


r 
* 


; me 


671 75! 43 GONC INITS@ ¢€ 7559 NO 


672 YES, NUT COLUMN GUT 
673 752 1414 7S51=1 HELIGS SCUM? 
674 753 1540 RTN C YES, RETURN 
675 754 33 GOTO INIT6O ¢ 757) NO. GO SEND MODE 
675 INITSO NOT NUT COLUMN GUT 
677 755 1414 7S51=1 HELIOS SCONM? j 
673 756 1640 RTN WC NO, RETURN 
679 ENTRY INIT6O 
660 
INIT60- SEND MODE COMMAND 
| €-HSES: C,N, PT, 38-39, HO ADDITICQWAL SUB LEYELS 
*-INPUTS: S8=1 FOR COLUMN GUT, ELSE S&=0 
* PT= 10, CHIP O ENABLED, HEX MODE 
*4-OUTPUTS: CHIP O ENABLED, HEX MODE 
*« 
652 75? INIT60 334 PT= 10 SEND MODE COMMAND 
65> 760 1670 C=REGN 14 
690 761 4650 LDI 
691 762 230 CON . @330 
692 763 1730 CST EX 
6935 764 742 C=C+C PT Did? 
6946 765 23 GONC INIT?PO ¢€ 767) NO 
695 766 1010 S2= 1 YES, SET GWM 
696 767 INIT70 742 C=C+C PT LOWER CASE 
697 770 23 GONC INITSO ¢ 772Z> NO 
695 771 1616 So= 1 YES, SET LCA 
639 772 INITSO 414 ?58a=1 COLUMN GUT? 
705 773 543 GONC PBYTCS ©1047) NO 
7Ot F274 14410 Si= 1 YES, SET scon 
702 775 523 GOTO PBYTCS ¢1047) 
bo] 
BuIA CIR ICICI OIC RCC ICCC GC CK Ae AC CCC do doi dokiaicde dedi ded dob ded ede ide eo a oe ds 
oe : . 
* PREC - PRINT KEYCOOE oa 
* USES: A.M, C, N, 83, PT, AND 1 ADDITIONAL SUBROUTINE LEVEL 
* IN: S7:0=KEYCODE, ACM 2= CHARACTER COUNTER 
* OUT: "RC" OR "-RC* TG PRINTER CR=ROW#, C=COL#> 
* A.M=AQ.M+#OF CHARS SENT TC PRINTER 
* ASSIIMES: HEXMODE, CHIP 6 ENABLED, S9=PRINTER INTERFACE ERROR FLAG 
* 
713 ENTRY PRKC2ZO 
Pi ; ENTRY PRKC 
775 726 PRKC 14 7S3=1 SHIFTED? 
Vile 777 72 GOHC PRECIO ¢1006) NO 
717 10006 4 $3= 0 YES 
718% 1001 460 LDI 
719 1662 55 (CCN @s non 
720 1003 1 GGOSUB CPBYTE 
7au 1004 0 
CAN‘T USE PRTIMSG HERE BECAUSE NOT ENOUGH SUBROUTINE LEVELS 
22 1005 572 A=A+t COUNT THE CHAR 
723 1006 PRECIO 572 A=A+i M COUNT 2 MORE CHARS 
72a 16007 5re A=At+t MM 
725 1016 1436 C=ST 
726 1011 1434 PT= 1 
727 1612 320 Le 3 
7am 1013 1 GOSUB PRKC20 INCREMENT & SEND ROW 


fen 1014 G 


* 


7as 1015 1374 RCR 13 eS" TO Ca kS 
zu 1616 1630 C=5T 

73% 1057 1474 RKCR ' ROW TO C.S 
732 1620 1176 C=C-! §S 

733 1021 1176 C=C-1 S$’ 

724 1622 1176 C=C-! §$ 

735 1623 1176 C=t-1 S$ "ENTER" ROW? 
726 1624 33 GOHC PRKC20 (1027) NG 

73 1025 1242 7? C#O PT KEY# "ENTER"? 
72H 1026 27 Gac CPBYTE ¢1030) NOT "ENTER" 
724 1027 PRKC20 1042 C=C+t PT 


*PRKC FALLS INTO CPBYTE HERE!IT!! 


* 
e* 


* 


ee FRR EERE FERRE F *& 


GEIS 


PRINTER EXISTENCE FLAG, 


PBYTEC - SEND A COHTROL BYTE TO THE PRINTER 


ODN ENTRY, CL1I:01]=BYTE Ta BE SENT TO THE PRINTER 

SND SY=ERROR FLAG 
WEES: N, NO PT, 39 FUR ERRORS, NO ADDITIQNAL SUE LEVELS 
IF S$9=1 THEN DOES RN IMMEDIATE RETURN 
WAiTS UP TO 1 SECOND FOR THE PRINTER TO BE NOT BUSY. 
SETS $9 AND RETURNS. 


OH A TIMEGUT., 


P8YTDU ~- PRINT A BYTE GF DATA UNCGNDITIONALLY. SANE AS PBYTEC 


EXSEPT CLEARS BIT ? UF THE DATA FRAME SEFORE SENDING IT TU THE 


THE FRINTER. 


LOOKS AT FLAG SS BEFORE ORGFPING 


CPBYTE - CONDITIGNALLY PRINT BYTE. 
THEN DOES AN IMMEDIATE RETURN 


INTO PBYTEC. IF FLAG 55 15 CLEAR, 
WITHGUT SENDING ANYTHING TO THE PRINTER. USED FOR COUNTING 
CHARACTERS TO SEE wHETHER THEY WILL FIT GN A LINE, FLAG SS IS THE 
WHICH IS NOMINALLY ON ALL THE TIME THE 
PRINTER 15 PLUGGED IN. , : 


m:, . 


784 
765 
756 
76" 
te 
769 
77u 


eee 


C72 
775 
774 
775 
776 
‘vr 
77s 
7% 
739 
781 
7S= 
Yee 
754 
fen 
Coe 
7oe 
Yaw 


1030 
1U31 
1G32 
1633 
1634 
16335 
1036 
1037 
1a40 
1641 
142 
1043 
{dg 


{ads 
1u46 
{ U4? 
#US 
1ast 
1052 
1US3 
1054 


CPBYTE 


P&YTOT 


CPRYT1 


FEYTDU 


PEYTCS 
PEYTEC 


ENTRY 
ENTRY 
ENTRY 
N=C 
Cc=9 
DADD=C 
C=REGN 
CsT EX 
?S0=1 
BOC 
CST EX 
C=t 
RTH 
CST EX 
C=H 
GoTo 


CST Ex 
$7= 
CST EX 
ySs=t 
RTH C 
N=C 
RCR 
C=C+C 


PBYTEC 
PBYTDU 
CPBYTE 
x 


14 


CPBYTT ©1042) 


PBYTEC ¢1050> 


FLAG 35? 

YES, SEND BYTE TO PRINTER 
NO, DON’T PRINT 

RESTORE C REGISTER 


SUPPRESS &aTH BIT 


AHY ERROR Stt FAR 
YES, RETURN IMMEDIATELY? 
SAYE C IH WH 


CHECK IF IT IS A CMD BYTE - 


MS& SET 


fs tig 


Vey 1055 123 GOHC PBYTOS ¢1067> NO, JUST AN ASCII 


790 1056 é44 C=HPIL 6 
790 1657 672 

790 1060 603 

791 1061 1166 C=C-1 XS 

79Z 1062 1046 C=C+1 x TALKING TO A T.YV, ? 

793 1063 43 GONC PBYTOS ¢1667) NO | 

794 1064 460 LDI | 
795 1065 40 CON @40 REPLACE THE CMD WITH A BLANK 
726 1066 23 GOTO PBYTO6 ¢1070> 

797 1067 PBYTOS 260 C=N 

793 1070 PBYTOS6 144 HPL=CH 1 WRITE DATA CONTROL BITS 
729 1071 § CH= e001 

Sou 1072 1200 HPIL=C 2 SEND THE BYTE OUT 

eo! 1673 106 C=6 x 

80% 1074 PBYTi0 354 GRAV? xX 

80% 1675 77 GOC PBYT12 €1104> 

804 1076 G NUP 

808 1077 G NOP 

Sve 1100 4046 CHCH1 OK. 

807 1101 1733 GONC PBYTIO ¢1074) 

806 11062 PBYTI1 1 GOLONG RDFMER , 

$0 1103 z 

802 1104 PBYT!2 1154 FRNS? 

810 1105 1333 GONC PBYTO1 ¢€1046) RESTORE C 

811 1106 1743 GOTO PBYTIt ¢110z9 

812 


OE ROR Rafe OR IC fe I IOI AHORA fe a RK eR Ci i a CR CARRERE RO: 


.) 


_* PAD — SEND PRINTER A COMMAND TO SKIP THE NUMBER OF CHARS IN ALK 
* 


se F & 


ow 


USES: C.%, Wy $9 . 
IN: A.xX = # OF PADS DESIRED ¢ 0-23) 
OUT; NOTHING 
RSSUMES: HESMODE, Z9=PRINTER INTERFACE ERROR FLAG 
82 1 
* PabrtR - ANDS ONE TO R.X AND DROPS INTO PAD 
$23 . . 
824 . ENTRY PBYREC 
325 EHTRY PAD 
S24 ENTRY PADI+A 
827 1107 PADI+tA F46 A=Ar+1 4 
825 1110 PAD 440 LBI 
892y 4111 e4t CON 2490 
B30 41112 FPBYAtC 10606 C=A+C K 
32} LEGAL 
S32 1113 1253 GOTO PBYTEC c1d5t> 
832 
OOIOIOIOIOIOI CR ICICICIOR CI CIGIOIIICICICICO ACI CIGOIICIOI OI ICICIC ACC HDICIOI CGT OI OE EECA CHOR HOR AICHE Ark dC 
CI tokacockaect: PRTG -- PRINT MESSAGE tok dood dRdCHOR de tok dob dick sok doko: 


“et SMe oe ie he abe ihe 4a de fe he Hee ee He de 2c at Ae He oe ie eS a A he SH he oe oh id eo RE i Si CEC ai i oe 


* 
WSES: A,C,G,NH,83, SND 1 RADDITIGNAL SUBROUTINE LEVEL 


INPUT: CONTENTS UF LCD REGISTERS 

OUTPHT: ONE LINE TQ PRINTER 

ASSUMES: Sa=t ON ENTRY RETURNS S@=f QN EXIT. 
RSSUMES SDDFESS OF NSGII{G IN MAINFRAME IS GN THE TOP OF THE 
SF THe SUEFRUUTINE STACK ON ENTRY RETURNS WITH A GOLCNG To 


eke EH 


34% 
84c 
BSu 
851 
852 





MSGI) ON EXIT, 


1114 
1115 
1416 
1117 
{420 
1121 

1122 
1123 
1124 
1125 
1126 
1127 
1136 
1434 

$432 
$133 


ROM 


1134 
1135 
1436 
{+37 
1140 
1t41 
1t¢2 
1143 
1144 
$145 
1146 
f1i4? 
1156 
#153 
1152 
$453 
1154 


PMESSG 


PNSG10 


1534 
1114 
.23 
542 
202 
1634 
1630 
130 
40 


ho 
Gla- BO 


2 


ENTRY 
PT= 
A=0 
7S9=1 
GONC 
A=A+1 


GOTO 
FILLTOG 


PMESSG 

12 

PT 

PMSGItO C1121) 
PT 


PT 
0 


FNDPTR (204¢ } 


PNSGI6 C1142) 
IAUNG (4226) 


PNSGIS C1t4t> 
C1133 


JUMP INTO HERE TO ITS ALARMS 


TMRNSG § 


PMNSGIS 


PMSG16 


PMSG20 


1 
0 
1 
0 
1 
G 


1104 
15.34 


1502 


23 
1119 
16.34 

230 
1530 
4190 
1 

2 


GONC 
SO= 
PT= 
C=G 
ST=C 
$= 
GOLONRG 


EJECT 


PRTLCD (5664) 
EQLL (627) 
UNL (4046) 


0 
12 

PT 

PMSG20 (1147) 
1 

0 


1 
MSG110 


SAVYE S39 IN ATI2Z) 


SAVE 3S7-S0 IN G 


FREE UP A SUBROUTINE LEVEL 


LOOK FGR THE PRINTER 


PRINTER NOT FOUND 


P+{1 - DON’T FRINT 
Fee - PRINT 


SEND EOLL 


RESTORE 39 


RESTORE SQ-S/ 


RETURN SS=1 


ee ee Li | 





i 
“ 
? 


SROICHOIORUICERCIOIOI IOI ICICICICOIOACIOECRORCHCICICICIOIOI ICR OICICICCECHORACIOR HCH OC HHI HOR fe 
! *PRFLAG-PRINT FLAGS AND STATUS 


_* LOCATION, 
Databook at ion tor tc tOiatof dion i Ofoiot Gk GIOIA i ai iaictoi toe dote tok fete detest act tot aati 


ees 
BSs, 
Be 
83 
33% 
B9& 
891 
B92 
89°2 
$9.3 
894 
$94 
B95 
898 
Sgr 
89s 
B37 
990 
90' 
ote 
903 
9u4 
945 
906 
907 
90G 
90% 
919 
911 
912 
912 


913 


914 
915 
916 
917 
913 
91% 
92% 
92h 
Sai 
921 
92:3 
924 
924 
925 
925 
925, 
925 
$27 
925 
925 
SS 


455 
1156 
14157 
1760 
1761 
11462 
1163 


1164 
1165 
1166 
1467 
1170 
$173 

1172 
13?°3 
1174 
1175 
1176 
1177 
12696 
1201 

1202 
1263 
T2o4 
1205 
1206 
Tru? 
1210 
121 

1212 
1213 
1214 
1215 
wwié 
12147 
{220 
fea} 

1222 


a 
ac 


1224 


TRIG MODE AND DISPLAY SETTING. 


223 
v 

1 
14 
6 
22 


20 


PRFLAG 1 
G 

1 

0 
{015 
12 
123 
124 
104 
124 
125 
123 
v2 
1015 
12 
123 
itt 
$32 
105 
73 
449 
1 

0 
116 
1160 
1570 
. 4 
1106 


1378 
&r4 


CON 
CON 
COOH 
ON 
CON 
CON 
CON 
ENTRY 
GOSUB 


GOH 
CON 
C=FKEGH 
RCR 


INCLUDING SIZE,SIGNA 


@223 
G7 

GI 

Gig 

@6 

@22 
@20 
PRFLAG 


IPRT (65%) 


PRTIMSL ‘64. 


@1015 
@1i2 
@123 
@124 
@toi 
@124 
@125 
@123 
@72 
@1015 
@12 
@123 
@iti 
@132 
@105 
@75 
2440 
FNDEND 


13 


14 
3 
PBINBD 


EGLL 
B176 
CKANGL 
PBYTEC 
PRTMSG 
&75 
6440 


13 
14 


INITIALIZE PRINT 


PRINT: LFE,STATUS: ,LF,SIZE= 


CR 
LF 

S 

T . 

A 

é 

U 

S 
CR 
LF 

S 

I 

Z 

E 
BLANK 


COMPUTE SIZE 


PRINT SIZE 


PRINT: LF,SIGMA= 


CUMPUTE SIGMA 


931 
$3 
IR2 
934 
935 
935 


i™ } 


Ww OO 
CI fl GP OS al 


aft Wf. ot &®. 


940: 


1742 
1243 
1244 


1245 
1246 
1247 
1250 
12353 

1252 
1253 
1254 
1255 
1256 
1257 
12606 
1261 

1262 
1263 
1264 
1265 
{266 
1267 
1270 
t2?1 

iz72 
1272 
1274 
1275 
1276 
1277 
1309 
1201 

#202 
1303 
1304 
1203S 
1306 
13067 
1310 
1311 


312 
{34s 
1314 
1315 
13i6é 
1317 
1326 
{321 
1322 
ives 
1324 


ce 


4 


fod Sab Gol OF OS NA PY 
GM oN Oi ¢ 


irelle — teeth ee tel th 


Yad tat op Col Cb Gd Oy 


QUTOSP 


-FLGLOP 


= 46 
u74 


4166 


—_ 
=e. . oe 
— Cs —* ot 
mee 


1o1 
1a? 
123 
472 
1670 
106 
SAG 
1 

u 


Ahk aileoa-~ca- 


AC EX 
RCR 

c=a-C 
LEGAL 
GUSUB 


GOSUB 


C=RKEGN 


RCR 


“CO 
+ 
" 


“SA To tI 
oO 


mae won 
wit nal la 


© 
cx 
® 


BOSUB 


C=RPEGH 


RCR 
ST=c 
LOT 
CON. 
733=1 
GOC 
C=C+1 


7625 


SOHC 

C=t+1 
ac EX 
SOSUB 


C=REGH 


RCR 
C=90 
RCR 


CO 
COW 
COW 
LOK 


C=REGH 


c 
i il 


wo 


a 
Oy C1 th 


(te 


x 


PBINBO 
EGLL 
14 

3 

1 

PT 

0 

0 
PPROMI 
ELL 


i¢ 


Gl 


G34 


rs 


GUTDSP ¢€1301) 


K 


BPROMT 


> 


Own SAh— 


PBINBD 


PRIMSG 


1015 
@1615 
oe 
@1a6é 
@ii¢ 
@104 
Gia? 
2123 
G472 
14 

x 


PRTNSG 


WUTDSP Cf30td 


PRINT SIGMA 


CMP DEG RAD GRAD CODE 


GCUTPUT DEG, RAD, OR GRAD 


FIX,SCI,ENG? 


CUTPUT FIX SCI OR ENG 


GET N 


FIX N ETC 
PRINT:LF,CLF,FLAGS: 
CR 


CR 
LF 


F 
L 
A 
G 
$ 


STORE FLAGS AND COUNTER 


PRINT LF, F,SFACE 





982 1234 1015 CON @1015 CR 
9%¢ 1235 1z CON @12 LF 
7 985 1336 106 CON @106 F 
i 984 1337 440 CON @446 BLANK 
| 987 1346 630 C=M 
: 985 1341 1 GOSUB PBINBO PRINT NUMBER OF FLAG 
4 985 1342 0 
‘ 939 1343 630 C=M 
. 990 1344 756 c=c+c IS FLAG SET 
: 991 1345 127 GOC FLGSET (1357) YES 
i 992 1346 1 GOSUB PRTMSG PRINT " CLEAR” 
4 992 1347 0. | 
99:3 1250 242 ON 6242 TWO BLANKS 
994 1251 103 CON @163 c 
} 935 1252 114 CGN @i14 L 
4 994 1253 105 CON @105 E 
: 997 1254 101 CON @1o1 A 
993 1355 S22 CON e522 R 
‘ 992 12356 73 GOTO LFCHK 
+ $003 1357 FLGSET 1 GOSUB PRTMSG PRINT " SET" 
» 000 1286 0 
» $00t 1261 242 CON G242 TWO BLANKS 
, 1002 12362 123 COW @1z3 Ss 
* {004 1263 105 CON @105 E . 
‘ 004 1264 524 CON @524 T 
1008 1265 LPCHK 1114 ?7S9=1 ANY ERROR ? 
10Ge 1266 1 GSUBC PECHK 
1006 1367 1 
1007 1370 £30 C=M 
1o0e 1371 z46 AC EX X 
1008 1372 460 LDI 
1010 127 s- 14 CON @14 
Hoit 1374 1946 2? AHC x 
1012 1375 37 GaCc c+C €1400) 
10%3 1376 1670 C=REGH 14 
Old 1377 © 674 RCR 11 
1015 1400 C+C 756 C=C+C 
1016 1401 4660 LDI 
Ot? 14902 70 CGN @70 DONE YET 
1018 1483 - 246 AC EX XK C READY TO STORE IN M 
1019 1404 1046 C=C+1 x IHC COUNT 
«1026 14905 1546 ? ARC xX 
«4021 1406 1237 GOC FLGLOP ¢133t) LOOP AGAIN 
£4922 ENTRY FINISH ~ 
_ 402% 1407 FINISH 1 GOSUB LPECHK EOLL, CHECK PRINTER ERRORS 
- $02 1410 Q 
2 $024 1411 1 GOLONG NFRPU 
2 


{ 1024 1412 

: BORO NOR OROROROIONONCHOR CR CICHONCHC HR ONC RRC CR ROACH RC ar of MOK OTR RC 
> *#PRKEYS-PRINTS GUT KEY REASSIGHMENTS 

| «IF NONE EXIST-PRINTS KEYS: NONE 

‘ *OTHERWISE PRINTS 1 1 SIZE 

-_ 1 5 ASHIFT 


*® 4 2 SPCCHS 
BOICIOIOI IOI ICICICIR ICICI CII HCE CICK CCCI OI OR a dof dOR Ne dct ao de Aca cat dE 
$032 1412 ~| 222 CO @223 
{032 1414 31 CON @z{ 
; 19024 1415 5 Can @5 
: 1635 1416 1B CCN G13 
: 1use 1417 22 CO G22 


1O3¢ 
103% 
1039 
103% 
tu4d(: 
bode 
1043 
1042 
1042 
1od4 
1udt 
' $04 
1o47 
104E 
ode 
ose 
1051 
1052 
1052 
1054 
1O5= 
1054 
1057 
1452 


1052 


1059 
iod6u 
(OG! 
1063 
1062 
1062 
1062 
1064 
1065 
1066 
'o6?7 
1052 
$06% 
1079 
1070 
1071 
1071 
1072 
1972 
“'OPS 
1074 
19S 
1076 
1or7s 
1076 
09 
108%: 
1081 
“$082 
1037 
10Se¢ 
10S¢4 
fuss 
Pes. 


1426 


1421 
1422 
1423 
i424 
1425 
1426 
142? 
1430 
1431 
1432 
1433 
1434 
1435 
1435 
1437 
1446 
1441 


1442 
1443 
1444 
1445 
1446 
1447 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1470 
1473 
1472 
1473 
1474 
1475 
1476 


1477. 


1200 
1501 
15e2 


PRKEYS 


KEYLOP 
KEYLP 1 


1503 - 


1504 
1565 
1566 
1Sur 
1516 
1531 


DOsROM 


Ro 
a 


131 
123 
$72 
116 
1160 


1150 
1179 


nh i 
aq GH 


ast eet WHO eH 


$170 
136 
1076 
1150 
1474 
1539 
14 


o-oo ~~ & —~ 


1170 
1474 
246 
346 
1404 
i 

a 


4. 


127 
34 
1342 
47 

1 

6 


- 103 


1 


CON 
ENTRY 


=, a 


GOSUB 
SOSUB 


COW 
CON 
COW 
CON 
CCN 
CON 
ON 
Can 
CON 
CON 
CON 
c=0 
GADG=C 
EWTRY 

REGN=C 
C=RKEGN 
AC EX 


-GOSUB 


? C#O 
GONC 
GUSUB 


GOSUB 


C=REGH 
c=0 
C=C+1 
REGN=C 
RCR 
ST=C 
753=1 
BSUBNC 


C=REGN 
RCR 

AC EX 
A=A+1 


Si= 


Ct 
GS 
oi 
a 
mH 


Gt oe OO amt ae 
oanro4 ow 
woe ao ol 

o rf 


Cc | 
mo 


mo 
ce Ce 
i 
ce 
m 


@2U 
PRKEYS 
IPRT 


PRTMSL 


ats 


@125 
@t23 
@1905 
@iz2Zz 
@40 

Bt1s 
@105 
@13i 
@123 
@472 


KEYLPI 

9 

9 

TBITMP 

INCCNT €1520> 
EQLL 


PWAIT 


—~00 0 WO 


PBLANK 
PRKC 


PBLANK 


DORAM ¢€15142 
3 

PT 

DOXROM C1511 > 
PPROM! 


INCCNT ¢t52a> 
PPSEROM 


INITIALIZE PRINT 


PRINT "USER KEYS:” 


FOLt <CR >) 
U 
S. 
E 
K 
BLANK 
K 
E 
bs 
S 


SET INDEX AT 0,9 

GET CURRENT INDEX BACK 
SET UP INDEX FO TEITHMP 
IS THIS KEY ASSIGHED? 


NO SKIP PRINTING 
FINISH LAST LINE : 


CHECK PRINT ERRORS 


SET FOUND ONE BIT 


IS THIS A SHIFTED KEY? 


GET KEY CODE GR ADR 


RAN? 
YES 
xXROM FUNCTION 


MAINFRAME FCN 


XROM FUNCTION 


1086 
1087 
1s 
1037 
1o9G 
tag 
{O91 
t O92 
109% 
1094 
1095 
1096 
igo? 
103S 
1o37 
r1G9 
1108 
1162 
113 
1104 
1405 
116 
1107 
1108 
116% 
1ife 
1413 
1?te2 
1143 
11t4 
TATS 
ities 
itt? 
134% 
1118 
1114 
tliat 
1121 
{ze 
T1EBZ 
1423 
114 
{425 
1126 
27 
59 
5 


re a 
i wh oe 
her tt 


iy 


a 


1133 


1124 


T5t2 
1513 


1514 
1515 
1576 
1S? 


1520 
1521 
iSzZ2 
1523 
1524 
12S 
1526 
132? 
{530 
1531 
1532 


1533 . 


1534 
1535 
1536 
1537 
1546 
1544 
1542 
1543 
1i64 
1545 
1546 


154? 


E50 


{554 
1552 
{253 


1554 


{255 
1536 
155? 
1560 
1561 
1562 
1563 
1564 


6S 
1566 
1567 
15796 
1S" 
1372 


1573 


DORAN 


INCCNT 


INCCOL 


KEYLNK 


DONKEY 


PRA 


416 
5 64 


116 
1160 
1434 
{020 
1434 


- 242 


1170 
1002 
$123 
1066 
{150 
7o6 
765 
133 
742 
742 


ake aka a eR ORO aR HOA ECAC de aE iO as 
<i ae aks abe ae ae ade ION a ate ae PRY -- PRINT X REG, NO DISPLAY 
SOROROII OR HOI SIOIIICICH ECCI HE ICHOR ACH ACH ACHE 


ENTRY 


bADD=C 
PT= 

Le 

PT= 

Ac EX 
C=REGN 
C=A+C 
GOHE 
c=C+1 
REGN=C 
c=C+C 
C=C+#C 
COHC 
c=C+c 
c=C+C 
GOC. 
?tHe 
GOHC 
C=REGN 


C=C+! 
REGN=C 
c=c+e 
GOLNC 


C=RKEGN 
2C#E 
GOC 
GOSUB 


can 
CON 
LOH 
COW 
GOLOWNG 


ENTRY 
ENTRY 
CON 
CON 
CON 
GOSUB 


SOSUB 


INCCHT 


0 
PLSLSG 


C1526) 


INCCNT © 


& 

{ 

PT 

3 

PT 
KEYLOP 
XS 

9 

XS 

xS 
KEYLNK 
PT 

PT 
INCCOL 
xS 
KEYLNK 
9 

xs 

PT 

a 


- 


PT 
KEYLP1 


9 
3 
DONKEY 
PRTMSG 


@116 
@ti? 
#116 
@305 
FINISH 


(1442) 


€1550) 


€1543 3 


C1550) 


€1563> 


ADDRESS TO AS: 0 
SAY RAM 


ADD 8 TO RGU 


GET INDEX BACK 
SHIFTED YET? 
DO SHIFTED 

INC COLUMN 


COL WAS THREE OR LESS 


YES INC COLUMN 


COL=4 

GET INDEX BACK 
RESET COLUMN 

INC COLUNN 

PUT INDEX AWAY 
ROW LARGER THAN 7 
NO 


FIND ANY 
YES 
NO 


ASSIGNMENTS 


M202 


GOO aC oR ddciaCdCcc detcinictee doi deat deeded ace 


AC IO HCO ak OR ara EC dE RE 


“BCCI IGG COG ORC OCHO aC aC aC H CHE aE a aE E 


PRH1S 
PR 
@230 
B22 
G26 
IPRT 


PRHSUB 


riate 1574 PRKIO 1 GOSUB PECHK 
1140 1575 0 


» CANHOT SIMPLY RETURN HERE BECAUSE 1) PRKSUB CALL USES UF ALL FOUR 
x SUBROUTINE LEVELS: NFRPU IS NO LONGER ON THE STACK, AND 2) CARD 
* REKCER ROM LOSIC FOR THE 7PRX FUNCTION DOES A GOSUB TO PRK “CYVIA 
* PRTIG) AND DUES NOT WANT PRX TO RETURN TO IT. 
1145 1576 1 GOLONG NFRPU 
1145 1577 2 
* 


BHIOIOICICIOICCROIOR CA IGA ICR GIOIA ACI ORORC ICRC CROC CA HOE HOF 1 eae HOR HOR tokok die cd Rd dee i cd dd dk 
#~-GLINE#= GET LINE # 

= 
#-CRLCULATES LINE # BINARY) IF THE LINE #= FFF, OTHERWISE RETURNS 

* EXISTING LINE @#. 

*-RSENERATES ERROR MESSAGE FOR PRIVATE PROGRAM, & DGESH’T RETURN 

* ; ; 

e-SES: A, Bea-3>, C, M, N, FP, @, €50-58 9, 3 SUB LEVELS 
*-INPUTS: CURRENT PRIVACY FLAG €312) FOR VALID LINE#,RI2SDESIRED PL 
*-OUTPUTS: ACM O= CixXO= LINE # CBINARYD 

*-RSSUMES: NOTHING 


* 

lis? ENTRY GLINE# 

11ée 1666 GLINE# 1 GOSUB LINNUM GET LINE # 

116 1601 : 0 

116% 1602 1246 7 C#O KX LINE #= 0? 

1442 1603 27 GOoc GLIN26 ¢1605) NGH-2ERO 

11432 $604 1046 C=C+!i- « YES, Inc TO ft 
e*C= REG 15 ON EXIT FROM LINNUMIT EE biritbbrreet 

1$45 1665 GLIN20 1756 REGN=C 15 . STORE WEW LINE # 

tite 4606 406 A=C & LINE # TO "A” 
316? tA? 1514 7siz=1 PRIVATE? 

1143 1616 1 GOLC ERRPR YES,ERRGR, DISPLAY "PRIVATE" 

1468 16143 3 

1169 3612 1740 RTN 


Sie He HE eG A OR HR AC 0 ACCC CRC CECA A SH A TC Co Be RAR CH A aC CHOC He He 


* 
* GOPMNSG - PUT UP "OUT GF PAPER” MESSAGE IN LCD 
* USER: €6:0, AND 1 ADDITIGNAL SUBROUTINE LEVEL 
* IN: ROTHING 
* OUT: LEAVES CHIP @ ENABLED AND SSO UP 
* ASSUMES: NOTHING 
* 
117% ENHTRY  GOPMSG 
1179 4613 GOPNSG 1 GOSUR MESSLP 
117% 1614 U 
11&G 1615 20 COH B20 P 
118t 1616 22 LOH G22 R 
tise 1617 11 COH eri I 
4153 1620 16 CON 16 HN 
114 1621 24 CON G24 l. 
1125 1622 = COH 80S E 
1196 14623 22 CCN G22 R 
1187 1ées4 40 COUN adi 
1725 1425 Ss CCN 6US Ee 
tfo9 1626 22 COW G22 F 
1396 162°f . 22 OH G2z R 
149% 16230 1040 CON 1040 
1IS2 1E74 1 GOSUB ENF aU 
tisez if3e2 u 
1795 1633 1 GOSUB URL 


1193 1634 0 

11494 18435 1 GOLGNG STNSGF 
1494 1636 2 

14195 


[ir Re te RR Re age Re RR EO EO NC Cate fe ote i de ai i ode he te of ik ote ae otc ode ate ott Hee OK Hooke A ea ko i eC a ict ofr 
WO Rene dOE ACK -- ACCUMULATE X REG IN PRINTER BUFFER 44 ose eck ote okt tate 
RUMOR IGIOIO IOI OI IGOR IOICIOCOIOIOICIHOICIGOICIOIOICIOCOR CK OR dor CO dC dei HC HCE dot otott HE are 


113% ENTRY ACK 

1200 1637 230 CON @230 x 
120t 16490 3 CON 3 C 
120% 1641 1 CON i R 
12023 1642 ACX 1 GOSUB IACHR 

1208 1643 0 

1204 1544 1 GGSUB ARCKSUB 

1264 1645 0 

1205 1646 1263 GOTO PRKHIO CtS7?4)d 


* 

YO IOICIOIOIOIOIOR IGE ICO ICICI ICICI CICK COICO OE HOE ted dedaiedcted detect: dated ia tee ae eae ate 4 
ZOO MORE Retototodaueiaate  PRTPPS CAVPEI tater ed otet ded tae tea ate ae a toe ete io Eo 
HOI ICICICIORICIOIOIOIOIOIIOIOR IG IGIGIOIOIOI OI HOI OIOI I I IO IO IOI OR aca DE IOI ot tor aC ICH aC aC HTC Ae aC CAE 


12/0 ENTRY PAYVIEW 
£4211 1647 PAVIEW 1 GOSUB CKEN OK TO PRINT 7 
1211 16596 t 
1212 1651 1740 RTN P+1 - -NO 
w2t3 1652 1 GOSUB FNDPTR P+2 - YES, SEE IF PTR THERE 
1213 1653 0 
1214 1654 53 GOTO PAYW1O ¢€1661)> NO PRINTER 
1215 1655 1 GOSUB INITC 
1215 1656 - G 
12tsé 1657 1 GOLONG PRR2G 
1216 1660 2 
1217 16614 PAaAVWIO 1304 SI3= 0 
1218 1662 1670 C=REGN 14 
1219 1663 1536 ST=C 
1220 1664 : 1740 RTN 


* 
Ro NOR CIC GICR A HOR ICICI A CAICHOR HC ACCA HEC HOI HOR OR dO dos He CH AK ek OC Ca a a te tt td si ie 
«+ - 


a + 
* CKEN - CHECK PRINTER ENABLED IF RUNNING OR SINGLE-STEPPING 
* 
* RETURNS TO: Ptt IF NOT OK TO PRINT 
* P+2 IF OK TO PRINT 
* USES: C, STLF:903, 39, PT,. NO ADDITIGNAL SUBROUTINE LEVELS 
* INPUT: CHIP @ ENABLED, HEMMODE 
* OUTPUT: IF RTH TQ P+2 THEN S9=0, CHIP O ENABLED, HEKMODE 
o 
Me 
ak 
12235 ENTRY CKEN 
1236 1465 CKEN 1670 C=REGN 14 GET STATUS BITS 
123" 1666 15930 ST=C 
122H 1667 1314 ?S13=1 RUNNING? 
1229 16706 37 GOC CKENIO ¢€1673) YES 
124 1671 114 754=1- SINGLE STOPPING? 
1244 1672 53 GONC CKENZO C1677) NOPE 
1242 1673 CKENITO 434 PT= 3 
1242 1674 r42 C=C+C PT 
1244 1675 742 C=C4C PT FLAG 217? 4FRINTER ENABLED? 2) 


1245 1676 1640 RKTN HO NU 


124% 1677 CKEN20 1104 $9= 0 CLEAR ERROR FLAG 
1247 1700 1 GOLONG RTNP+2 
1247 1701 2 
* 
* 
1250 FILLTO @1701 
1251 
* 
1253 1702 KYCKX 1614 750=1 - PRINTER EXIST ? 
1254 1703 63 ‘GOHC KYCKK2 €1741) NO 
1265 1704 144 HPL=CH 1 
1286 1705 1005 CH= @201 ENABLE FLAG TEST 
1257 1766 1254 SROR? SERVICE REQUEST RECEIVED 7? 
1252 1707 1 GOLC PRSVC . YES, LET’S TAKE A LOOK AT PRINTER: 
1254 1710. 3 
1259 1711 KYCKK2 1 GOLONG RMCKIO 
1259 1712 Py 
1261) FILLTO @1712 


* WHE: PRUSING WITH THE PRINTER TURNED OFF, THE EXTRA WORD TINES TO 


* DISCOVER THAT THE FRINTER IS 


126% ENTRY 
12% ENTRY 
1265 PRT1S 

1265 1713 CRPRTX 1 GOLONG 
1266 1714 zZ 

126? PRT17 | 
128 1715 CRPSTK 1 GOLONG 
1262 1716 2 

$269 PRTI6 

1279 17137 CRPRESG GOLONG 
1276 1720 | 
1271 1721 -PRTIS GOLONG 


1271 1722 
1272 1723 PRTI4 


1272 1724 


GOLONG 


1273 1725 PRTI3 GOLONG 
12F5 1726 
1274 1727 PRTT2 GOLONG 


1274 1730 
cena VW2°S 1731 PRT 
1275 1732 
cpk1276 1°33 PRTG 
27h 1734 


GOLONG 


GOLONG 


seop V2P7 1735 PRTY GOLONG 
1277 1736 
127% 1737 PRTB GOLONG 


1273 1746 

127% 1741 PRT? 
W279 ede 

TLE 1743 PRTG 
Tee 1744 

$26? 1745 PRIS 
1231 1746 

123= 

12k 1P4¥ PRI 


GOLONG 
GOLONG 


GOLONG 


N+ MMe Mea HK Bee wWoP 


GOLUNES 


— 


12e% {750 2 

1296 

126": 

reese 1751 PRTS } GOLUNG 
Wee ("Se 2 


OFF LENGTHEN THE PAUSE BY ABOUT 10%. 
PRT 11 
PRT6 


PRX 6£22 CR: 37 PRTX 
PRSTK =. 2 CR: 97 PRST 


REGL G2x% CR: 97 PREG 

XPRTIS eae. SSTEST 

ENDALP 639e ENTERING UR EXITING ALPHA NODE 
OVERFL <4 D.E. UNDERFLOW OR OVERFLOW 
PRTCAT 6245 °PRINT CATALOG IN TRACE 
PAYIEW 664} 

PYIEW 6425 

PADV GC&D 

DATARR GSE = DATA ENTRY STRING & R/S 
PPROMP 6246 

PMESSG 6£Cc PRINT MESSAGES 

DATA&F £592 DATA ENTRY STRING & FUNCTICH 


CNUTO¢O0 OR NAMNES29 
DATAPR GGZA KEY SEQUENCE ABGRTED 


OR PAUSE EXPIRED 
OR RAKIGG IN UNI 
ALPHOP GRe- BEGIN TO KEY IN ALFHA OP ERAND 


oe PEPER LERREE RB PRE 


1237 
1287 
1285 
1225 


1296 


1291 
BEEN 29% 
1292 
1293 
1294 
12904 
1295 
1296 
1294 
129E 
1229 
t30G 
r130r 
1302 
130% 
1304 
13GE 
1306 
1307 


1753 
17°54 
1755 
1756 


1757 


17690 
1761 


1762 
1763 
1764 
1765 
1766 
1767 
17790 
1771 
i7r2 
1773S 
174 
1775 
1776 
177r 


ERRORS : 


PRT2 


PRT 


ACRGCA 


PBYTCH 


PPAUSE 
PRUN 

WAKEP 

POWOF FP 
1/OSVP 
CDEEPSF 
COLDSP 
PRTID 


CKOUMP 


Mh 


G066 


20 


GOLONG 


GOLONG 


FILLTO. 


NOP 
ENTRY 
GOLGNG 


ENTRY 
GOLONG 


GOTO 
NOP 
NOP 
NOP 
GOTO 
HOP 
NGP 
CON 
CGN 
CON 
CON 
NOP 
END - 


NXINST 6 S074 


PXTR “i920 


Ne. 


@1757 


ACRGECK - 
AGREGC 69°¢6 


PBYTCX 
PBYTEC Ger 


KYCKX 


KYCKX 


@05 
@62 
G14 
@20 


€1702 > 


€1702) 


NEXT INST TO BSE KEQ,RUNNING PGM 


SEND C REG TO PRINTER 


SEND C1:0 TO PRINTER 


ENTRY FROM PAUSE LOOP 
RIINN ING 
WAKE UF FROM DEEP SLEEP W/O KEY 


WAKE-UP FROM DEEP SLEEP 
COLD START ENTRY POINT 
E 

2 

L 

P , 

PRINTER CHECKSUM 


SYMBOQ!. TABLE 


ACCKR 135 
ACCHRA 137 
ACCOL 161 
ACRGCX 1760 


ACSPCco 558 
ACSPED S3é 


ACK 1642 
ADYVG1 402 
ALY OZ 413 
ADYO3 423 
ADY 64 424 
BDY10 454 
ADVZ6 466 
ALYZO 470 


HDYSO 473 
ADYCKE 37% 
ADVKEY 367 
AERRDE 541 


BLD10 = S45 
BLDSPC = 566 
C+C 1400 
CKEN 1665 
CKENtO 1673 
CKEN20 167? 
CKSUMF 61777 
CKTRO = 201 
CKTRCE = «174 
COLDSP 1772 
CPBYT! 1042 
CPBYTE fore 
CRPRES 1717 
CRPRTX 1713 
CRPSTK 1715 
DEESSP 1771 
DONKEY 1562 
DORAM 1514 


DOXROM 1511 
EQLREX 126 


FILLIN i 
FILLNF 0 
FINISH 1497 
FLGLOP 1331 
FLGSET 135? 
GLINZG 1665 
GLINE® 160% 
T/OSVF 1776 
TACHR 644 


TAGaL 66 
ITAWALL 662 


ITAUNA 662 
TAUNB 665 
IHSU 647 
ING 674 
ING99 644 
TINRDY 65% 
THADAF 12 


S52 


376 
422 


405 
465 
462 
435 


373 


343 
1375 


1670 
1672 


202 


1636 
1026 


{S54 
1502 
1565 


i406 
1345 
1603 


66 i 
667 
651 


420 


416 


~ 


“i 


366 


—TNCOHT 


» INCCOL. 


INITIO 
 INITI2 
 INITIS 
INIT2Z6 
INITS0 
_INIT35 
INIT46 
INITS 
INITES 
INI TE 
INIT?#e 
INITES 
- INITC 

INT TSe 
INITSM 


- IPRT 


KEYILNK 
_KEYLGOP 
KEYLP 1 
_KYCKX 
KYCKRE 
_LPCHK 
_NOPTR 
| GOPMSG 
 OUTDSP 
- PAD 
-PADI+A 
 PADY 


PAYIEM | 


—PAYWIO 
PBYAFC 
PEYTO! 
PBYTOQS 
PBYT C6 
PSYT1I0 
PBYT11 
PBYT12 
-PBYTES 
-PBYTCX 
7 PEYTENV 
i PBYTEC 
PEGE 

' PEO 

PESS 

> FECHK 

PECHK YJ 
PEDIAG 
PKEY 

PKEY1S 
PKEY 25 
PMESSE 
PMStHIY 
PANS@iD 
PMSiI6 
—PMSESU 
POWDF? 
PRRUSE 
PRPECH 


1525 
tS4e 
715 
731 
. 732 
737 
743 
74% 
750 
700 
(95 
750 
v6V 
72 
702 


— +¢ 


1114 
1121 
T1460 
114 
1147 
t7ées 
1764 

167 


153 
15490 
¢ 06 


" 634 


720 
733 
736 
742 
745 


vol 
754 
765 
770 
677 


iS4e2 
1530 


1770 
1703 
1356 


622 


246 
330 


1117 
1133 
1136 
$145 


1510 


657 


747 


1535 


1764 


1055 


“i 
wJ 
tJ 


1044 


642 


Ly 


1450 


744 


740 


735 


731 


FP RBUF 
PRFLAG 
PRKE 
PRKO FO 
PRKO2ZO 
PRKEYS 
FRSY 
PRT 1 
PRT10 
PRTYS 
PRT12 
PKT13 
PRTT4 
PRTGS 
PRT16 
PRT? 
FRT{I2 
PRT2 
PRIS 
PRT3O 
PRT 4 
PRT40 
PRTS 
PRTSO 
PRTS 
PRT60 
PRT? 
PRTS 
PRT 
PRTID 
PRUN 
PRK 
PRAXIS 
PRASUR 
PSYCID 
FPSY¥YCZ0 
PS¥CSY 
PSYCSU 
PSYCSC 
PSV¥CS5 
FS¥CSS 
PATR 
PRTRZ 
PATR4 
PXTRE « 
SPECK 
SPEZIO 
TMRNSE 
UNLER 
WAKEP 
HPRTLS 


102 
1164 
776 
1000 
1027 
1421 
213 
17553 
1733 
1731 
172? 
1725 
1723 
{721 
1717 
1713 
174i 
1753 
17381 
316 
1747 
342 
1745 
354 
1742 
362 
1741 
{730 
1738 
tw7s 
1765 
tS7u 
1574 
52 
236 
241 
245 
252 
2e4 
263% 
2ri2z 
17’ 
33 
3Y 
42 
val 
55: 
1134 
625 
176s 
6&4 


| 


GS 


td Gf 13 
om a 
GI 
hh 


tl 
hy 
oe 


oO 


mJ 


a | 


ENTRY YABLE 


 ACCHR 
—ACCHRE 
accel 
- ACRGCX 
acspce 
—ACSPEC 
ACK 
 ADVSO 
- ADVKEY 


 SLDSPC 


: CKEN 
, CKTRCE 


 CPBYTE 


_ FILLIN 
- FILLN® 


FINISH 
: GLINE# 


LACHR 
TACOL 
— TAURLL 
_ TAUNA 
: TAUNB 


» INADY 


| INADKP 


- INCCNT 
: INITS 


| INITS6Q 
~ INITC 
INITSC 
INITSM 
IPRT 
KEYUP 1 
HOPMSiE 
PAD 
PADIT+A 
PADY 


| PAvVIczld 


PBYATC 
 PBYTCX 
’ PBYTSU 
_ PBYTEL 


| FECHK 
| PEDIAG 


. PMNESSE 
| PRBUF 
| PRFLAC 
 PREKO 

— PRKO2 6 
PRKEYS 
FRSVC 

PRT11 

PRTSG 
FRT6 

_ PRE 

~ PR1O 

PRXSUS 


135 
137 
16! 
1760 
55S 
536 
1642 
473 
367 
506 
1665 
174 
1630 
i 

0 
1407 
1608 
64¢é 
660 
662 
662 
666 
655 
12 
1520 
70) 
(Se 
7 bz 
632 
631 
635 


i442 . 


1613 
11490 
1167 
$15 
1647 
11142 
1762 
104%: 
1O5u 
379 
373 
1114 
{Ge 
1164 
77% 
1027 
1421 
213 
1731 


54 


tr4e 
157% 
1574 

So 


PRTR 1? ~ 4 
SPEC-K f2i - 
XPRT15 64 - 





rFHDETR Ze 165 120 223 373 640 652 652 
FHDETR 2:3 106 121 224 vid 641 653 664 
reNSTS 3Y 345 413 457 

ENSTS 4 346 414 460 

BCPKC 1477 

BCPKE 43504 

ITACHR 14% {1642 

TACHR 144 81649 

TACQL 164 343 


TACOL 165 944 
IAUNB 14131 
TAUNB 1132 


INADY $11 124 
INADY 112 125 
INCADK 13 
INCADS 14 


INITeéa 71a 

INITG6S vt} 

INITC 99 1655 

INJTC 351 1656 
INITSM 409 

INITSA 401 

IPRT 1164 3421 1570 
IPRT 1t65 422 571 
KEYLP1 1550 

“REVEL? 1551 


LOSZTO 33 175 
LOSSTO 34 176 
LEFT J 316 437 
LEFT J 3i7 440 


LIWKHUM 16038 
LINHUM 1601 
LPECHK 113 06«©61407 
LPECHK 114 6f416 
MESSL 302 313 432 
MESSL 304 314 433 
MESSLP 1633 
MESELP 614 
MSGIi0 .1153 
MSGi{t0 1154 

MSGA 362 

NSGA 364 

MNSGNL 365 > 
NFRPU 1411 1576 
HFRPU 1412 1577 
NLTO4& 36u 

NL T O04 {1 36! 
HSINST 1753 
NHXINST 1754 
NOPCHK 655 762 
MOPCHK 65¢€ 703 
WOPNSE 23BE 600 
NOPMSE 2ir 601 
OVERFL 725 
OVERFL 1726 


FAD 6 
FAD v 
PAY 1735 
FADY 1 PSE. 
PAVIEMW i731 


PAVIEW 
PGINBC 
PBINBC 
PBINBO 
FEINBD 
PBLANK 
PBLANK 
PBY TRU 
PEYTDU 
PBYTE 
PEYTEC 
PECHK 

PECHK 

PILERFR 
PILERS& 
PLBLG 

PLBLO 

PLEREX 
PLEREX 
PMESS!: 
PMESSI: 
PPROM: 
FPROM] 
FPROMS 
FPROM? 
FPRROM 
PP#REM 
PRAISRT 


PRISRT 


PRAZO 
PRA? GE 
PREUF 
PREIVUIE 
PRK > 
PRK 
PREC2ZD 
PRKO2U 
PRSTK 
PRSTK 
rRSTKS 
PRSTKX 
FRSYC 
rRS3Y 
PRTISO 
PRTISO 
PRTCAT 
PRTCAT 
FRTLCD 
PRTLCM 
PR TASE. 
FRIMSG 
PRIASI. 
FRIMSIL. 
PRR 
PRR 
PRESUS 
PRXSUS 
P¥IEW 
PYTEW 
PUAIT 


173z 
12451 
1244 
1222 
1223 
1464 
1465 
562 
567 
170 
171 
172 
173 
623 
624 
1516 
i517 
602 
604 
1742 
1744 
1262 
126% 
1741 
1742 
1511 
1512 
73 
74 
165? 
1660 
241 
242: 


1466 


146? 
1013 


{oi 
1715 
T7146 
4%. 

* 
1707 
TF19 
465 
467 
172? 
173 
1134 
13s 
a 
Se 
1166 
1167 
Tei 
1714 
1572 
1575 
L732 
734 
145% 


{341 
1342 
1312 
1313 
1479 
i4r°r 


471 
472 
1366 
1367 


1506 


Su? 


424 

425 
1423 
1424 


v23 
r24 
1574 


1VS75 


1314 


1315 


1232 
1233 


{332 
{333 


1762 
1763 


un of 
Ct} crt 


mo 


PUAIT 
PXTR 
PKTR 
RDEMER 
ROFMER 
REGL 
REG 
RMCKtO 
RMCK ID 
RFECIIK 
RFECHK 
RTHP+2 
RTNe& 42 
SPEI-K 
SPEC-K 
STMSGF 
STMSGF 
TBITMSE 
TAITME 
UNL 
UNL 
USLRSE 
UNLRSF 
KPRTES 
SPRTES 


End of 


1454 
1735 
1754 
1102 
toy 
71? 
1726 
273 
274 
126 
127 
2ti 
212 
374 
375 
163% 
163e 
144% 
t44<. 
4% 
42% 
354 
isa) 
1723 
1722 


YVASM assembly 


t7it 
t7i2 


1700 
17} 


263 
264 
473 
474 


625 
626 
srt 
Se 


1140 
1141 


1633 
1634 


